Listing of file='LTPEN2.MAC;1D' on disk='vmedia/sound_light_pen-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; LIGHT-PEN ROUTINE ; EXTRN CO,OSTR EXTRN SPULSE,COORDS ENTRY LTPEN LTPEN: CALL SPULSE LXI H,6001H LXI D,BUF LT10: MOV A,M STAX D INX H INX H INX D MOV A,H CPI 70H JNZ LT10 CALL COORDS PUSH D LXI H,6001H LXI D,BUF LT20: LDAX D MOV M,A INX H INX H INX D MOV A,H CPI 70H JNZ LT20 POP D RET BUF: DS 800H END