Apple II User Manual
FE20: A2 01 891 LT LDX #$01
FE22: B5 3E 892 LT2 LDA A2L,X ;COPY A2 (2 BYTES) TO
FE24: 95 42 893 STA A4L,X ; A4 AND A5
FE24: 95 42 893 STA A4L,X ; A4 AND A5
FE26: 95 44 894 STA A5L,X
FE28: CA 895 DEX
FE28: CA 895 DEX
FE29: 10 F7 896 BPL LT2
FE2B: 60 897 RTS
FE2B: 60 897 RTS
FE2C: B1 3C 898 MOVE LDA (A1L),Y ;MOVE (A1 TO A2) TO
FE2E: 91 42 899 STA (A4L),Y ; (A4)
FE2E: 91 42 899 STA (A4L),Y ; (A4)
FE30: 20 B4 FC 900 JSR NXTA4
FE33: 90 F7 901 BCC MOVE
FE33: 90 F7 901 BCC MOVE
FE35: 60 902 RTS
FE36: B1 3C 903 VFY LDA (A1L),Y ;VERIFY (A1 TO A2) WITH
FE36: B1 3C 903 VFY LDA (A1L),Y ;VERIFY (A1 TO A2) WITH
FE38: D1 42 904 CMP (A4L),Y ; (A4)
FE3A: F0 1C 905 BEQ VFYOK
FE3A: F0 1C 905 BEQ VFYOK
FE3C: 20 92 FD 906 JSR PRA1
FE3F: B1 3C 907 LDA (A1L),Y
FE3F: B1 3C 907 LDA (A1L),Y
FE41: 20 DA FD 908 JSR PRBYTE
FE44: A9 A0 909 LDA #$A0
FE44: A9 A0 909 LDA #$A0
FE46: 20 ED FD 910 JSR COUT
FE49: A9 A8 911 LDA #$A8
FE49: A9 A8 911 LDA #$A8
FE4B: 20 ED FD 912 JSR COUT
FE4E: B1 42 913 LDA (A4L),Y
FE4E: B1 42 913 LDA (A4L),Y
FE50: 20 DA FD 914 JSR PRBYTE
FE53: A9 A9 915 LDA #$A9
FE53: A9 A9 915 LDA #$A9
FE55: 20 ED FD 916 JSR COUT
FE58: 20 B4 FC 917 VFYOK JSR NXTA4
FE58: 20 B4 FC 917 VFYOK JSR NXTA4
FE5B: 90 D9 918 BCC VFY
FE5D: 60 919 RTS
FE5D: 60 919 RTS
FE5E: 20 75 FE 920 LIST JSR A1PC ;MOVE A1 (2 BYTES) TO
FE61: A9 14 921 LDA #$14 ; PC IF SPEC'D AND
FE61: A9 14 921 LDA #$14 ; PC IF SPEC'D AND
FE63: 48 922 LIST2 PHA ; DISEMBLE 20 INSTRS
FE64: 20 D0 F8 923 JSR INSTDSP
FE64: 20 D0 F8 923 JSR INSTDSP
FE67: 20 53 F9 924 JSR PCADJ ;ADJUST PC EACH INSTR
FE6A: 85 3A 925 STA PCL
FE6A: 85 3A 925 STA PCL
FE6C: 84 3B 926 STY PCH
FE6E: 68 927 PLA
FE6E: 68 927 PLA
FE6F: 38 928 SEC
FE70: E9 01 929 SBC #$01 ;NEXT OF 20 INSTRS
FE70: E9 01 929 SBC #$01 ;NEXT OF 20 INSTRS
FE72: D0 EF 930 BNE LIST2
FE74: 60 931 RTS
FE74: 60 931 RTS
FE75: 8A 932 A1PC TXA ;IF USER SPEC'D ADR
FE76: F0 07 933 BEQ A1PCRTS ; COPY FROM A1 TO PC
FE76: F0 07 933 BEQ A1PCRTS ; COPY FROM A1 TO PC
FE78: B5 3C 934 A1PCLP LDA A1L,X
FE7A: 95 3A 935 STA PCL,X
FE7A: 95 3A 935 STA PCL,X
FE7C: CA 936 DEX
FE7D: 10 F9 937 BPL A1PCLP
FE7D: 10 F9 937 BPL A1PCLP
FE7F: 60 938 A1PCRTS RTS
FE80: A0 3F 939 SETINV LDY #$3F ;SET FOR INVERSE VID
FE80: A0 3F 939 SETINV LDY #$3F ;SET FOR INVERSE VID
FE82: D0 02 940 BNE SETIFLG ; VIA COUT1
FE84: A0 FF 941 SETNORM LDY #$FF ;SET FOR NORMAL VID
FE84: A0 FF 941 SETNORM LDY #$FF ;SET FOR NORMAL VID
FE86: 84 32 942 SETIFLG STY INVFLG
FE88: 60 943 RTS
FE88: 60 943 RTS
FE89: A9 00 944 SETKBD LDA #$00 ;SIMULATE PORT #0 INPUT
FE8B: 85 3E 945 INPORT STA A2L ; SPECIFIED (KEYIN ROUTINE)
FE8B: 85 3E 945 INPORT STA A2L ; SPECIFIED (KEYIN ROUTINE)
FE8D: A2 38 946 INPRT LDX #KSWL
FE8F: A0 1B 947 LDY #KEYIN
FE8F: A0 1B 947 LDY #KEYIN
FE91: D0 08 948 BNE IOPRT
FE93: A9 00 949 SETVID LDA #$00 ;SIMULATE PORT #0 OUTPUT
FE93: A9 00 949 SETVID LDA #$00 ;SIMULATE PORT #0 OUTPUT
FE95: 85 3E 950 OUTPORT STA A2L ; SPECIFIED (COUT1 ROUTINE)
FE97: A2 36 951 OUTPRT LDX #CSWL
FE97: A2 36 951 OUTPRT LDX #CSWL
FE99: A0 F0 952 LDY #COUT1