;  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