move to pc-thing/

1 files changed, 160 insertions, 0 deletions

diff --git a/pc-thing/code/wozmon.a b/pc-thing/code/wozmon.a
new file mode 100644
index 0000000..5462c4d
--- /dev/null
+++ b/pc-thing/code/wozmon.a
@@ -0,0 +1,160 @@
+;  The WOZ Monitor for the Apple 1
+;  Written by Steve Wozniak in 1976
+
+
+; Page 0 Variables
+
+.label XAML            0x24           ;  Last "opened" location Low
+.label XAMH            0x25           ;  Last "opened" location High
+.label STL             0x26           ;  Store address Low
+.label STH             0x27           ;  Store address High
+.label L               0x28           ;  Hex value parsing Low
+.label H               0x29           ;  Hex value parsing High
+.label YSAV            0x2A           ;  Used to see if hex value is given
+.label MODE            0x2B           ;  $00=XAM, $7F=STOR, $AE=BLOCK XAM
+
+
+; Other Variables
+
+.label IN              0x0200         ;  Input buffer to $027F
+.label KBD             0xD010         ;  PIA.A keyboard input
+.label KBDCR           0xD011         ;  PIA.A keyboard control register
+.label DSP             0xD012         ;  PIA.B display output register
+.label DSPCR           0xD013         ;  PIA.B display control register
+
+               .org $FF00
+               .export RESET
+
+RESET:          ;CLD             ; Clear decimal arithmetic mode.
+                ;CLI
+                MOV Y 0x7F        ; Mask for DSP data direction register.
+                STY DSP         ; Set it up.
+                MOV A 0xA7        ; KBD and DSP control register mask.
+                STA KBDCR       ; Enable interrupts, set CA1, CB1, for
+                STA DSPCR       ;  positive edge sense/output mode.
+NOTCR:          CMP #'_'+$80    ; "_"?
+                BEQ BACKSPACE   ; Yes.
+                CMP 0x9B        ; ESC?
+                BEQ ESCAPE      ; Yes.
+                INY             ; Advance text index.
+                BPL NEXTCHAR    ; Auto ESC if > 127.
+ESCAPE:         LD A #'\'+$80    ; "\".
+                JSR ECHO        ; Output it.
+GETLINE:        LD A 0x8D        ; CR.
+                JSR ECHO        ; Output it.
+                LD Y 0x01        ; Initialize text index.
+BACKSPACE:      DEY             ; Back up text index.
+                BMI GETLINE     ; Beyond start of line, reinitialize.
+NEXTCHAR:       LD A KBDCR       ; Key ready?
+                BPL NEXTCHAR    ; Loop until ready.
+                LD A KBD         ; Load character. B7 should be ‘1’.
+                STA IN,Y        ; Add to text buffer.
+                JSR ECHO        ; Display character.
+                CMP 0x8D        ; CR?
+                BNE NOTCR       ; No.
+                LD Y 0xFF        ; Reset text index.
+                LD A 0x00        ; For XAM mode.
+                TAX             ; 0->X.
+SETSTOR:        ASL             ; Leaves $7B if setting STOR mode.
+SETMODE:        STA MODE        ; $00=XAM, $7B=STOR, $AE=BLOCK XAM.
+BLSKIP:         INY             ; Advance text index.
+NEXTITEM:       LD A IN,Y        ; Get character.
+                CMP 0x8D        ; CR?
+                BEQ GETLINE     ; Yes, done this line.
+                CMP #'.'+$80    ; "."?
+                BCC BLSKIP      ; Skip delimiter.
+                BEQ SETMODE     ; Set BLOCK XAM mode.
+                CMP #':'+$80    ; ":"?
+                BEQ SETSTOR     ; Yes. Set STOR mode.
+                CMP #'R'+$80    ; "R"?
+                BEQ RUN         ; Yes. Run user program.
+                STX L           ; $00->L.
+                STX H           ;  and H.
+                STY YSAV        ; Save Y for comparison.
+NEXTHEX:        LD A IN,Y        ; Get character for hex test.
+                EOR 0xB0        ; Map digits to $0-9.
+                CMP 0x0A        ; Digit?
+                BCC DIG         ; Yes.
+                ADC 0x88        ; Map letter "A"-"F" to $FA-FF.
+                CMP 0xFA        ; Hex letter?
+                BCC NOTHEX      ; No, character not hex.
+DIG:            ASL
+                ASL             ; Hex digit to MSD of A.
+                ASL
+                ASL
+                LD X 0x04        ; Shift count.
+HEXSHIFT:       ASL             ; Hex digit left, MSB to carry.
+                ROL L           ; Rotate into LSD.
+                ROL H           ; Rotate into MSD’s.
+                DEX             ; Done 4 shifts?
+                BNE HEXSHIFT    ; No, loop.
+                INY             ; Advance text index.
+                BNE NEXTHEX     ; Always taken. Check next character for hex.
+NOTHEX:         CPY YSAV        ; Check if L, H empty (no hex digits).
+                BEQ ESCAPE      ; Yes, generate ESC sequence.
+                BIT MODE        ; Test MODE byte.
+                BVC NOTSTOR     ; B6=0 STOR, 1 for XAM and BLOCK XAM
+                LD A L           ; LSD’s of hex data.
+                STA (STL,X)     ; Store at current ‘store index’.
+                INC STL         ; Increment store index.
+                BNE NEXTITEM    ; Get next item. (no carry).
+                INC STH         ; Add carry to ‘store index’ high order.
+TONEXTITEM:     JMP NEXTITEM    ; Get next command item.
+RUN:            JMP (XAML)      ; Run at current XAM index.
+NOTSTOR:        BMI XAMNEXT     ; B7=0 for XAM, 1 for BLOCK XAM.
+                LD X 0x02        ; Byte count.
+SETADR:         LD A L-1,X       ; Copy hex data to
+                STA STL-1,X     ;  ‘store index’.
+                STA XAML-1,X    ; And to ‘XAM index’.
+                DEX             ; Next of 2 bytes.
+                BNE SETADR      ; Loop unless X=0.
+NXTPRNT:        BNE PRDATA      ; NE means no address to print.
+                LD A 0x8D        ; CR.
+                JSR ECHO        ; Output it.
+                LD A XAMH        ; ‘Examine index’ high-order byte.
+                JSR PRBYTE      ; Output it in hex format.
+                LD A XAML        ; Low-order ‘examine index’ byte.
+                JSR PRBYTE      ; Output it in hex format.
+                LD A #':'+$80    ; ":".
+                JSR ECHO        ; Output it.
+PRDATA:         LD A 0xA0        ; Blank.
+                JSR ECHO        ; Output it.
+                LD A (XAML,X)    ; Get data byte at ‘examine index’.
+                JSR PRBYTE      ; Output it in hex format.
+XAMNEXT:        STX MODE        ; 0->MODE (XAM mode).
+                LD A XAML
+                CMP L           ; Compare ‘examine index’ to hex data.
+                LD A XAMH
+                SBC H
+                BCS TONEXTITEM  ; Not less, so no more data to output.
+                INC XAML
+                BNE MOD8CHK     ; Increment ‘examine index’.
+                INC XAMH
+MOD8CHK:        LD A XAML        ; Check low-order ‘examine index’ byte
+                AND 0x07        ;  For MOD 8=0
+                BPL NXTPRNT     ; Always taken.
+PRBYTE:         PHA             ; Save A for LSD.
+                LSR
+                LSR
+                LSR             ; MSD to LSD position.
+                LSR
+                JSR PRHEX       ; Output hex digit.
+                PLA             ; Restore A.
+PRHEX:          AND 0x0F        ; Mask LSD for hex print.
+                ORA #'0'+$80    ; Add "0".
+                CMP 0xBA        ; Digit?
+                BCC ECHO        ; Yes, output it.
+                ADC 0x06        ; Add offset for letter.
+ECHO:           BIT DSP         ; DA bit (B7) cleared yet?
+                BMI ECHO        ; No, wait for display.
+                STA DSP         ; Output character. Sets DA.
+                RTS             ; Return.
+
+                BRK             ; unused
+                BRK             ; unused
+
+; Interrupt Vectors
+
+                .WORD $0F00     ; NMI
+                .WORD RESET     ; RESET
+                .WORD $0000     ; BRK/IRQ
\ No newline at end of file