Apple II User Manual

0985   872B 20 C1 87           JSR BRTT        ;INC ERCNT (UP TO FF)

0986   872E 20 B2 82    F3     JSR INCCMP
0987   8731 70 7C              BVS B1

0988   8733 F0 EE              BEQ F1
0989   8735 90 EC              BCC F1

0990   8737 B0 76       F2     BCS B1          ;(ALWAYS)
0991   8739 C9 42       BLK3   CMP #'B'        ;BLOCK MOVE (OVERLAP OKAY)

0992   873B F0 03              BEQ *+5
0993   873D 4C CD 87           JMP S13B

0994   8740 A9 00              LDA #0
0995   8742 8D 52 A6           STA ERCNT

0996   8745 20 9C 82           JSR P2SCR
0997   8748 AD 4E A6           LDA P1L

0998   874B 85 FC              STA $FC
0999   874D AD 4F A6           LDA P1H

1000   8750 85 FD              STA $FD
1001   8752 C5 FF              CMP $FF         ;WHICH DIRECTION TO MOVE?

1002   8754 D0 06              BNE *+8
1003   8756 A5 FC              LDA $FC

1004   8758 C5 FE              CMP $FE
1005   875A F0 53              BEQ B1          ;16 BITS EQUAL THEN FINISHED

1006   875C B0 14              BCS B2          ;MOVE DEC'NG
1007   875E 20 B7 87    BLP    JSR BMOVE       ;MOVE INC'NG

1008   8761 E6 FC              INC $FC
1009   8763 D0 02              BNE *+4

1010   8765 E6 FD              INC $FD
1011   8767 20 B2 82           JSR INCCMP

1012   876A 70 43              BVS B1
1013   876C F0 F0              BEQ BLP

1014   876E 90 EE              BCC BLP
1015   8770 B0 3D              BCS B1

1016   8772 A5 FC       B2     LDA $FC         ;CALC VALS FOR MOVE DEC'NG
1017   8774 18                 CLC

1018   8775 6D 4A A6           ADC P3L
1019   8778 85 FC              STA $FC

1020   877A A5 FD              LDA $FD
1021   877C 6D 4B A6           ADC P3H

1022   877F 85 FD              STA $FD
1023   8781 38                 SEC

1024   8782 A5 FC              LDA $FC
1025   8784 E5 FE              SBC $FE

1026   8786 85 FC              STA $FC
1027   8788 A5 FD              LDA $FD

1028   878A E5 FF              SBC $FF
1029   878C 85 FD              STA $FD

1030   878E 20 A7 82           JSR P3SCR
1031   8791 AD 4C A6           LDA P2L

1032   8794 8D 4A A6           STA P3L
1033   8797 AD 4D A6           LDA P2H

1034   879A 8D 4B A6           STA P3H
1035   879D 20 B7 87    BLP1   JSR BMOVE       ;MOVE DEC'NG

1036   87A0 A5 FC              LDA $FC
1037   87A2 D0 02              BNE *+4

1038   87A4 C6 FD              DEC $FD
1039   87A6 C6 FC              DEC $FC

1040   87A8 20 BE 82           JSR DECCMP
1041   87AB 70 02              BVS B1

1042   87AD B0 EE              BCS BLP1
1043   87AF AD 52 A6    B1     LDA ERCNT       ;FINISHED, TEST ERCNT

1044   87B2 38                 SEC
1045   87B3 D0 01              BNE *+3

1046   87B5 18                 CLC