home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / CPM / CPMPDL.txt next >
Text File  |  2020-08-13  |  630b  |  23 lines
  1. ; SUB TO READ PADDLE 0 INTO REG A
  2. ; DEMO OF 6502 SUBROUTINE CALLING FROM CPM
  3. ;
  4. Z$CPU    EQU       0F3DEH
  5. A$VEC    EQU       0F3D0H
  6. A$ACC    EQU       0F045H
  7. A$XREG   EQU       0F046H
  8. PREAD    EQU       0FB1EH
  9. ;
  10. PDL      XRA       A         ;CLEAR A
  11.          STA       A$XREG    ;PADDLE # 0 TO BE READ
  12.          LXI       H,PREAD   ;GET ADDR OF SUBROUTINE
  13.          SHLD      A$VEC     ;STORE IT FOR 6502
  14.          LHLD      Z$CPU     ;GET SOFTCARD ADDR
  15.          MOV       M,A       ;WRITE CAUSES EXEC OF 6502 SUB
  16. ;
  17. ;EXECUTION RESUMES HERE AFTER 6502 RTS
  18. ;
  19.          LDA       A$ACC     ;A HAS PADDLE VALUE
  20.          RET
  21. ;
  22.          END
  23.