Apple ii Battery Charger User Manual


 
FA70: 29 1F 395 AND #$1F
FA72: 49 14 396 EOR #$14
FA74: C9 04 397 CMP #$04 ;COPY USER INST TO XEQ AREA
FA76: F0 02 398 BEQ XQ2 ; WITH TRAILING NOPS
FA78: B1 3A 399 XQ1 LDA (PCL),Y ;CHANGE REL BRANCH
FA7A: 99 3C 00 400 XQ2 STA XQT,Y ; DISP TO 4 FOR
FA7D: 88 401 DEY ; JMP TO BRANCH OR
FA7E: 10 F8 402 BPL XQ1 ; NBRANCH FROM XEQ.
FA80: 20 3F FF 403 JSR RESTORE ;RESTORE USER REG CONTENTS.
FA83: 4C 3C 00 404 JMP XQT ;XEQ USER OP FROM RAM
FA86: 85 45 405 IRQ STA ACC ; (RETURN TO NBRANCH)
FA88: 68 406 PLA
FA89: 48 407 PHA ;**IRQ HANDLER
FA8A: 0A 408 ASL
FA8B: 0A 409 ASL
FA8C: 0A 410 ASL
FA8D: 30 03 411 BMI BREAK ;TEST FOR BREAK
FA8F: 6C FE 03 412 JMP (IRQLOC) ;USER ROUTINE VECTOR IN RAM
FA92: 28 413 BREAK PLP
FA93: 20 4C FF 414 JSR SAV1 ;SAVE REG'S ON BREAK
FA96: 68 415 PLA ; INCLUDING PC
FA97: 85 3A 416 STA PCL
FA99: 68 417 PLA
FA9A: 85 3B 418 STA PCH
FA9C: 20 82 F8 419 XBRK JSR INSDS1 ;PRINT USER PC.
FA9F: 20 DA FA 420 JSR RGDSP1 ; AND REG'S
FAA2: 4C 65 FF 421 JMP MON ;GO TO MONITOR
FAA5: 18 422 XRTI CLC
FAA6: 68 423 PLA ;SIMULATE RTI BY EXPECTING
FAA7: 85 48 424 STA STATUS ; STATUS FROM STACK, THEN RTS
FAA9: 68 425 XRTS PLA ;RTS SIMULATION
FAAA: 85 3A 426 STA PCL ; EXTRACT PC FROM STACK
FAAC: 68 427 PLA ; AND UPDATE PC BY 1 (LEN=0)
FAAD: 85 3B 428 PCINC2 STA PCH
FAAF: A5 2F 429 PCINC3 LDA LENGTH ;UPDATE PC BY LEN
FAB1: 20 56 F9 430 JSR PCADJ3
FAB4: 84 3B 431 STY PCH
FAB6: 18 432 CLC
FAB7: 90 14 433 BCC NEWPCL
FAB9: 18 434 XJSR CLC
FABA: 20 54 F9 435 JSR PCADJ2 ;UPDATE PC AND PUSH
FABD: AA 436 TAX ; ONTO STACH FOR
FABE: 98 437 TYA ; JSR SIMULATE
FABF: 48 438 PHA
FAC0: 8A 439 TXA
FAC1: 48 440 PHA
FAC2: A0 02 441 LDY #$02
FAC4: 18 442 XJMP CLC
FAC5: B1 3A 443 XJMPAT LDA (PCL),Y
FAC7: AA 444 TAX ;LOAD PC FOR JMP,
FAC8: 88 445 DEY ; (JMP) SIMULATE.
FAC9: B1 3A 446 LDA (PCL),Y
FACB: 86 3B 447 STX PCH
FACD: 85 3A 448 NEWPCL STA PCL
FACF: B0 F3 449 BCS XJMP
FAD1: A5 2D 450 RTNJMP LDA RTNH
FAD3: 48 451 PHA
FAD4: A5 2C 452 LDA RTNL
FAD6: 48 453 PHA
FAD7: 20 8E FD 454 REGDSP JSR CROUT ;DISPLAY USER REG
FADA: A9 45 455 RGDSP1 LDA #ACC ; CONTENTS WITH
FADC: 85 40 456 STA A3L ; LABELS