C02/include/stdiox.a02

; C02 library stdiox.h02 assembly language subroutines

ANYKEP: DC  "PRESS ANY KEY...",0

;
;char anykey() - wait for character with ANY KEY prompt
;Calls: GETCPR, NEWLIN - Print Newline to Screen
;Affects: C,N,Z
;Returns: A = Character code of keypress
ANYKEY: JSR NEWLIN      ;Start at Beginning of Next Line
        LDY #>ANYKEP    ;Load Prompt High Byte
        LDX #<ANYKEP    ;Load Prompt Low Byte
                        ;Drop into GETCPR

;char getcpr(&s) - GET Character with PRompt
;Args: Y,X = Address of Prompt String
;Sets: TEMP0 - Character code of keypress
;Calls: PUTS - Put String to Screen
;       GETC - Get Character from Keyboard
;       NEWLIN - Print Newline to Screen
;Affects: C,N,Z
;Returns: A = Character code of keypress
GETCPR: JSR PUTS        ;Print Prompt
        JSR GETC        ;Wait for and Return Keypress
        STA TEMP0       ;Save Key Code
        JSR NEWLIN      ;Move to Next Line
        JSR NEWLIN      ;Generate Blank Line
        LDA TEMP0       ;Load Key Code
        RTS

;void putbin(b) - PUT Binary
;Args: A = number to print
;Destroys: TEMP0, TEMP1
;Affects: A,Y,C,N,X
PUTBIN: LDY #$FF        ;Set Bitmask to All 1's

;void putmsk(b) - PUT bitMaSK
;Args: A = byte to print
;      Y = Bitmask
;Destroys: TEMP0, TEMP1
;Affects: A,Y,C,N,X
PUTMSK: STA TEMP2       ;Save Byte
        STY TEMP1       ;Save Bitmask
        LDX #8          ;Print 8 Binary Digits
PUTMSL: LDA #0          ;Clear Accumulator
        ASL TEMP2       ;Shift Top Bit Out of Byte
        ADC #$30        ;Convert to '0' or '1'
        ASL TEMP1       ;Shift Top Bit Out of Mask
        BCC PUTMSS      ;If Set
        JSR PUTCHR      ;  Print Digit
PUTMSS: DEX             ;Decrement Index
        BNE PUTMSL      ;Loop if Not Done
        RTS

;void putdel(b) - PUT DEcimal Left justified
;Args: A = number to print
;Sets: TEMP0 - ones digit
;      TEMP1 - tens digit
;      TEMP2 - hundreds digit
;      TEMP3 - number that was printed
;putdem - Alternate Entry Point if number is already in TEMP3
;putdeh - Alternate Entry Point to print only padding spaces
PUTDEL: STA TEMP3
PUTDEM: JSR PUTDEC      ;Print Decimal Representation of number
        LDA TEMP3       ;
PUTDEH: CMP #100        ;If Number < 100
        BCS PUTDET      ;
        JSR PUTSPC      ;  Print a Space
        LDA TEMP3       ;
PUTDET: CMP #10         ;  If Number < 10  
        BCS PUTDEX      ;
        JSR PUTSPC      ;    Print another Space
PUTDEX: RTS

;void putder(b) - PUT DEcimal Right justified
;Args: A = number to print
;Sets: TEMP0 - ones digit
;      TEMP1 - tens digit
;      TEMP2 - hundreds digit
;      TEMP3 - number that was printed
PUTDER: STA TEMP3
PUTDES: JSR PUTDEH
        LDA TEMP3

;void putdec(b) - PUT DECimal
;Args: A = number to print
;Sets: TEMP0 - ones digit
;      TEMP1 - tens digit
;      TEMP2 - hundreds digit
PUTDEC: JSR CUBCD       ;Convert Accumulator to Unpacked BCD
        LDA TEMP2       ;Get High Byte
        BEQ PUTDE1      ;If Not Zero
        JSR PUTDGT      ;  Print Digit
PUTDE1: LDA TEMP1       ;Get Low Byte
        BNE PUTDE2      ;If Not Zero
        CMP TEMP2       ;  and Hundreds 
        BEQ PUTDE3      ;  not Zero   
PUTDE2: JSR PUTDGT      ;  Print Digit
PUTDE3: LDA TEMP0       ;Get Low Byte
PUTDGT: ORA #$30        ;Convert to ASCII digit
        JMP PUTCHR      ;And Print

;puthex(b) - PUT HEXadecimal
PUTHEX  EQU PRBYTE      ;Print Byte as Hexadecimal

;putint(&word) - PUT INTeger
PUTINT: JSR CVIBCD      ;Convert Integer to Packed BCD
        LDY #4          ;Set Initial Digit Number
PUTINZ: JSR UPBCDI      ;Unpack Digit X
        BNE PUTINS      ;If Zero
        DEY             ; Decrement Digit Number
        BNE PUTINZ      ; If Not Zero Loop
        BEQ PUTDGT      ; Else Print Digit and Return
PUTINL: JSR UPBCDI      ;Unpack Digit X
PUTINS: JSR PUTDGT      ;Print Digit
        DEY             ;Decrement Digit Number
        BPL PUTINL      ;Loop if >= Zero
        RTS

;putnyb(b) - PUT NYBble
PUTNYB  EQU PRHEX       ;Print Nybble as Hexadecimal

;putsqb(&word) - PUT SesQuiByte
;Args: Y = High Nybble
;      X = Low Byte
;Calls: PRBYTE = Print Byte
;       PRHEZ = Print Hex Digit
;       SAVRXY = Save X and Y Registers
;Affects: A,Y,X,N,Z,C
PUTSQB: JSR SAVRXY      ;Save Address
PUTSQA: LDA TEMP2       ;Load Address MSB
        JSR PRHEX       ;Print High Nybble 
        LDA TEMP1       ;Load Address LSB
        JMP PRBYTE      ;Print and Return`

;putexh(&word) - PUT EXtended Hexadecimal
;Args: A = Value Extended Byte
;      Y = Value High Byte
;      X = Value Low Byte
;Calls: PRBYTE = Print Byte
;       SAVRXY = Save X and Y Registers
;       PUTWRA = Put Word (Alternate Entry Point)
;Affects: A,Y,X,N,Z,C
PUTEXH: JSR SAVRXY      ;Save High and Low Bytes
        JSR PRBYTE      ;Print Extended Byte
        JMP PUTWRA      ;Print High and Low Bytes

;putwrd(&word) - PUT WoRD
;Args: Y = Word MSB
;      X = Word LSB
;Calls: PRBYTE = Print Byte
;       SAVRXY = Save X and Y Registers
;Affects: A,Y,X,N,Z,C
PUTWRD: JSR SAVRXY      ;Save Word
PUTWRA: LDA TEMP2       ;Load Word MSB
        JSR PRBYTE      ;Print as Hexadecimal
        LDA TEMP1       ;Load Word LSB
        JMP PRBYTE      ;Print and Return`

;Print a Space
PUTSPC: LDA #32         ;Load Space Character
        JMP PUTCHR      ;and Print it

;Print Repeated Spaces
PUTRPS: TAY             ;Set Counter to Number of Spaces
        LDA #32
        
;Print Repeated Character
PUTRPT: JSR PUTCHR      ;Print Space Character
        DEY             ;Decrement Counter
        BNE PUTRPT      ;If Not 0, Loop
        RTS

;void printf(b, &s) - PRINT Formatted byte and/or string
;Args: A = byte to format
;      Y,X = address of formatting string
;Uses: DSTLO,DSTHI = Address of %S string
;Sets: SRCLO,SRCHI = Address of formatting string
;      TEMP3 - number to format
;Destroys: TEMP0,TEMP1,TEMP2
;Returns: A,Y = Total number of characters printed
PRINTF: STA TEMP3       ;Save Byte to Format
        JSR SETSRC      ;Initialize Source String
PRINTL: LDA (SRCLO),Y   ;Read next character in string
        BEQ PRINTX      ;If Not 0
        CMP #'%         ;'  If Format Specified 
        BEQ PRINTP      ;    Jump to Formatter
PRINTC: JSR PUTCHR      ;  Print character at offset,
PRINTY: INY             ;  increment offset, and
        BPL PRINTL      ;  loop if less than 128
PRINTX: RTS             ;  characters printed
;Process Format Specifier
PRINTP: INY             ;Increment Offset
        LDA (SRCLO),Y   ;Get Formatting Character
        BEQ PRINTX      ;If NUL, then Exit
        CMP #'%         ;'If Percent Sign 
        BEQ PRINTC      ;  Print it and Continue
        AND #$DF        ;Convert to Upper Case
        CMP #'L         ;'If "l" or "L" 
        BNE PRINTR
        LDA TEMP3       ;  Load Byte to Format
        JSR PUTDEM      ;  Print Left Justified
        JMP PRINTY      ;  and Continue Printing String
PRINTR: CMP #'R         ;'If "r" or "R" 
        BNE PRINTD
        LDA TEMP3       ;  Load Byte to Format
        JSR PUTDES      ;  Print Right Justified
        JMP PRINTY      ;  and Continue Printing String
PRINTD: CMP #'D         ;'Else If "d" or "D" 
        BNE PRINTG
        LDA TEMP3       ;  Load Byte to Format
        JSR PUTDEC      ;  Print as Decimal
        JMP PRINTY      ;  and Continue Printing String
PRINTG: CMP #'G         ;'Else If "g" or "G" 
        BNE PRINTH
        LDA TEMP3       ;  Load Byte to Format
        JSR PUTNYB      ;  Print as Low Nybble as Hexadecimal
        JMP PRINTY      ;  and Continue Printing String
PRINTH: CMP #'H         ;'Else If "h" or "H" 
        BNE PRINTB
        LDA TEMP3       ;  Load Byte to Format
        JSR PUTHEX      ;  Print as Hexadecimal
        JMP PRINTY      ;  and Continue Printing String
PRINTB: CMP #'B         ;'Else If "b" or "B" 
        BNE PRINTN
        STY TEMP0       ;  Save Index
        LDA TEMP3       ;  Load Byte to Format
        JSR PUTBIN      ;  Print as Binary
        LDY TEMP0       ;  Restore Index
        JMP PRINTY      ;  and Continue Printing String
PRINTN: CMP #'N         ;'Else If "n" or "N" 
        BNE PRINTS
        STY TEMP0       ;  Save Index
        JSR NEWLIN      ;  Execute Newline Function
        LDY TEMP0       ;  Restore Index
        JMP PRINTY      ;  and Continue Printing String
PRINTS: CMP #'S         ;'Else If "s" or "S" 
        BNE PRINTQ
        STY TEMP0       ;  Save Index
        JSR PUTDST      ;  Print Destination String
        LDY TEMP0       ;  Restore Index
        JMP PRINTY      ;
PRINTQ: CMP #'Q         ;'Else If "w" or "W" 
        BNE PRINTW
        STY TEMP0       ;  Save Index
        JSR SAVDST      ;  Save Destination Address
        JSR PUTSQA      ;  Print MSB and LSB as Hex
        LDY TEMP0       ;  Restore Index
        JMP PRINTY      ;
PRINTW: CMP #'W         ;'Else If "w" or "W" 
        BNE PRINTI
        STY TEMP0       ;  Save Index
        JSR SAVDST      ;  Save Destination Address
        JSR PUTWRA      ;  Print MSB and LSB as Hex
        LDY TEMP0       ;  Restore Index
        JMP PRINTY      ;
PRINTI: CMP #'I         ;'Else If "i" or "I" 
        BNE PRINTZ
        TYA             ;  Save Index
        PHA
        JSR GETDST      ;  Get Integer in DSTLO, DSTHI
        JSR PUTINT      ;  Print Integer as Decimal
        PLA             ;  Restore Index
        TAY
        JMP PRINTY      ;
PRINTZ: LDA TEMP3       ;Else
        JMP PRINTC      ;  Print Raw Byte and Continue

                       ;char putdst()
PUTDST: LDY #0         ;Initialize character offset
PUTDSL: LDA (DSTLO),Y  ;Read next character in string
        BEQ PUTDSX     ;If Not 0
        JSR PUTC       ;  Print character at offset,
        INY            ;  increment offset, and
        BPL PUTDSL     ;  loop if less than 128
PUTDSX: TYA            ;Return number of
        RTS            ;  characters printed