Apple II User Manual

Page of 257
0427   8291 18                 CLC
0428   8292 60          M29    RTS
0429   8293 EE 4A A6    INCP3  INC P3L         ;INCREMENT P3 (16 BITS)
0430   8296 D0 03              BNE *+5
0431   8298 EE 4B A6           INC P3H
0432   829B 60                 RTS
0433   829C AE 4D A6    P2SCR  LDX P2H         ;MOVE P2 TO FE,FF
0434   829F 86 FF              STX $FF
0435   82A1 AE 4C A6           LDX P2L
0436   82A4 86 FE              STX $FE
0437   82A6 60                 RTS
0438   82A7 AE 4B A6    P3SCR  LDX P3H         ;MOVE P3 TO FE,FF
0439   82AA 86 FF              STX $FF
0440   82AC AE 4A A6           LDX P3L
0441   82AF 86 FE              STX $FE
0442   82B1 60                 RTS
0443   82B2 E6 FE       INCCMP INC $FE         ;INCREM FE,FF, COMPARE TO P3
0444   82B4 D0 14              BNE COMPAR
0445   82B6 E6 FF              INC $FF
0446   82B8 D0 10       WRAP   BNE COMPAR      ;TEST TO WRAP AROUND
0447   82BA 2C BD 82           BIT EXWRAP
0448   82BD 60          EXWRAP RTS
0449   82BE A5 FE       DECCMP LDA $FE         ;DECREM FE,FF AND COMPARE TO P3
0450   82C0 D0 06              BNE M32
0451   82C2 A5 FF              LDA $FF
0452   82C4 F0 F2              BEQ WRAP
0453   82C6 C6 FF              DEC $FF
0454   82C8 C6 FE       M32    DEC $FE
0455   82CA 20 88 81    COMPAR JSR SAVER       ;COMPARE FE,FF TO P3
0456   82CD A5 FF              LDA $FF
0457   82CF CD 4B A6           CMP P3H
0458   82D2 D0 05              BNE EXITCP
0459   82D4 A5 FE              LDA $FE
0460   82D6 CD 4A A6           CMP P3L
0461   82D9 B8          EXITCP CLV
0462   82DA 4C BE 81           JMP RESXF
0463   82DD 08          CHKSAD PHP             ;16 BIT CKSUM IN SCR6,7
0464   82DE 48                 PHA
0465   82DF 18                 CLC
0466   82E0 6D 36 A6           ADC SCR6
0467   82E3 8D 36 A6           STA SCR6
0468   82E6 90 03              BCC M33
0469   82E8 EE 37 A6           INC SCR7
0470   82EB 68          M33    PLA
0471   82EC 28                 PLP
0472   82ED 60                 RTS
0473   82EE AD 59 A6    OUTPC  LDA PCLR        ;OUTPUT PC
0474   82F1 AE 5A A6           LDX PCHR
0475   82F4 48          OUTXAH PHA
0476   82F5 8A                 TXA
0477   82F6 20 FA 82           JSR OUTBYT
0478   82F9 68                 PLA
0479   82FA 48          OUTBYT PHA             ;OUTPUT 2 HEX DIGS FROM A
0480   82FB 48                 PHA
0481   82FC 4A                 LSR A
0482   82FD 4A                 LSR A
0483   82FE 4A                 LSR A
0484   82FF 4A                 LSR A
0485   8300 20 44 8A           JSR NBASOC
0486   8303 68                 PLA
0487   8304 20 44 8A           JSR NBASOC
0488   8307 68                 PLA