Apple II ユーザーズマニュアル

0303   81A0 9D 07 01           STA $0107,X

0304   81A3 BD 08 01           LDA $0108,X
0305   81A6 9D 04 01           STA $0104,X

0306   81A9 BD 06 01           LDA $0106,X
0307   81AC 9D 08 01           STA $0108,X

0308   81AF 98                 TYA
0309   81B0 9D 06 01           STA $0106,X

0310   81B3 68                 PLA
0311   81B4 AA                 TAX

0312   81B5 68                 PLA
0313   81B6 28                 PLP

0314   81B7 60          M15    RTS
0315   81B8             ; RESTORE EXCEPT A,F

0316   81B8 08          RESXAF PHP
0317   81B9 BA                 TSX

0318   81BA 9D 04 01           STA $0104,X
0319   81BD 28                 PLP

0320   81BE             ; RESTORE EXCEPT F
0321   81BE 08          RESXF  PHP

0322   81BF 68                 PLA
0323   81C0 BA                 TSX

0324   81C1 9D 04 01           STA $0104,X
0325   81C4             ; RESTORE ALL 100%

0326   81C4 68          RESALL PLA
0327   81C5 A8                 TAY

0328   81C6 68                 PLA
0329   81C7 AA                 TAX

0330   81C8 68                 PLA
0331   81C9 28                 PLP

0332   81CA 60                 RTS
0333   81CB             ;

0334   81CB             ; MONITOR UTILITIES
0335   81CB             ;

0336   81CB C9 20       ADVCK  CMP #$20        ;SPACE?
0337   81CD F0 02              BEQ M1

0338   81CF C9 3E              CMP #'>'        ;FWD ARROW?
0339   81D1 38          M1     SEC

0340   81D2 60                 RTS
0341   81D3 20 FA 82    OBCMIN JSR OUTBYT      ;OUT BYTE, OUT COMMA, IN BYTE

0342   81D6 20 3A 83    COMINB JSR COMMA       ;OUT COMMA, IN BYTE
0343   81D9 20 1B 8A    INBYTE JSR INCHR

0344   81DC 20 75 82           JSR ASCNIB
0345   81DF B0 14              BCS OUT4

0346   81E1 0A                 ASL A
0347   81E2 0A                 ASL A

0348   81E3 0A                 ASL A
0349   81E4 0A                 ASL A

0350   81E5 8D 33 A6           STA SCR3
0351   81E8 20 1B 8A           JSR INCHR

0352   81EB 20 75 82           JSR ASCNIB
0353   81EE B0 11              BCS OUT2

0354   81F0 0D 33 A6           ORA SCR3
0355   81F3 18          GOOD   CLC

0356   81F4 60                 RTS
0357   81F5 C9 3A       OUT4   CMP #':'        ;COLON ?

0358   81F7 D0 05              BNE OUT1
0359   81F9 20 1B 8A           JSR INCHR

0360   81FC D0 F5              BNE GOOD        ;CARRIAGE RETURN?
0361   81FE B8          OUT1   CLV

0362   81FF 50 03              BVC CRCHK
0363   8201 2C 04 82    OUT2   BIT CRCHK

0364   8204 C9 0D       CRCHK  CMP #$0D        ;CHECK FOR C/R