Apple ii Battery Charger User Manual


 
2908 F4CC 8D 17 01 STA LMNEM
2909 F4CF B9 F9 F5 LDA MNEMR,Y
2910 F4D2 8D 18 01 STA RMNEM
2911 F4D5 A2 03 LDX #3 ;MUST BE
2912 F4D7 A9 00 PRMN1 LDA #0
2913 F4D9 A0 05 LDY #5
2914 F4DB 0E 18 01 PRMN2 ASL RMNEM
2915 F4DE 2E 17 01 ROL LMNEM
2916 F4E1 2A ROL A
2917 F4E2 88 DEY
2918 F4E3 D0 F6 BNE PRMN2
2919 F4E5 69 BF ADC #'?'+$80 ;ADD "?" OFFSET
2920 F4E7 20 BC E9 JSR OUTALL
2921 F4EA CA DEX
2922 F4EB D0 EA BNE PRMN1
2923 F4ED 20 45 F5 JSR PRBL2
2924 F4F0 A2 06 LDX #6
2925 F4F2 A9 00 LDA #0
2926 F4F4 8D 29 A4 STA STIY+2 ;FLAG
2927 F4F7 E0 03 PRADR1 CPX #3
2928 F4F9 D0 1E BNE PRADR3 ;IF X=3 PRINT ADDR VALUE
2929 F4FB A4 EA LDY LENGTH
2930 F4FD F0 1A BEQ PRADR3 ;1 BYTE INSTR
2931 F4FF AD 16 01 PRADR2 LDA FORMA
2932 F502 C9 E8 CMP #$E8 ;RELATIVE ADDRESSING
2933 F504 20 56 EB JSR PCLLD
2934 F507 B0 27 BCS RELADR
2935 F509 ;SE IF SYMBOL
2936 F509 48 PHA
2937 F50A AD 29 A4 LDA STIY+2
2938 F50D D0 03 BNE MR11A
2939 F50F EE 29 A4 INC STIY+2 ;SHOW WE WERE HERE
2940 F512
2941 F512 68 MR11A PLA
2942 F513 20 46 EA JSR NUMA
2943 F516 88 DEY
2944 F517 D0 E6 BNE PRADR2
2945 F519 0E 16 01 PRADR3 ASL FORMA
2946 F51C 90 0E BCC PRADR4
2947 F51E BD AC F5 LDA CHAR1-1,X
2948 F521 20 BC E9 JSR OUTALL
2949 F524 BD B2 F5 LDA CHAR2-1,X
2950 F527 F0 03 BEQ PRADR4
2951 F529 20 BC E9 JSR OUTALL
2952 F52C CA PRADR4 DEX
2953 F52D D0 C8 BNE PRADR1
2954 F52F 60 RTS
2955 F530 20 4D F5 RELADR JSR PCADJ3
2956 F533 AA TAX
2957 F534 E8 INX
2958 F535 D0 01 BNE PRNTXY
2959 F537 C8 INY
2960 F538 98 PRNTXY TYA
2961 F539 4C 42 EA JMP WRAX ;PRINT A &X
2962 F53C AD 26 A4 PRPC LDA SAVPC+1 ;PRINT PC
2963 F53F AE 25 A4 LDX SAVPC
2964 F542 20 42 EA JSR WRAX
2965 F545 A9 20 PRBL2 LDA #' '
2966 F547 4C BC E9 JMP OUTALL
2967 F54A A5 EA LDA LENGTH
2968 F54C 38 SEC
2969 F54D AC 26 A4 PCADJ3 LDY SAVPC+1 ;PRG CNTR HIGH