71 lines
1022 B
ArmAsm
71 lines
1022 B
ArmAsm
;P8000 SPEZIFISCHE PROGRAMMTEILE UND DATEN FUER DAS REMOTE-PAKET
|
|
;REM.P8000.S
|
|
|
|
EXTERNAL RETURN
|
|
GLOBAL SYSTEM LODTTY SNDTTY INIPTY RESPTY
|
|
GLOBAL ACTCMD DEACT DATE
|
|
GLOBAL HWINIT HWSTART
|
|
|
|
SYSTEM: JP 1003H
|
|
|
|
LODTTY:
|
|
CALL PRESS
|
|
RET Z
|
|
CALL GETA
|
|
AND 7FH
|
|
RET
|
|
SNDTTY: RES 7,A
|
|
JP PTYPUT
|
|
|
|
GETA: EQU 0BE8H
|
|
PTYPUT: EQU 0BEBH
|
|
PRESS: EQU 0BE5H
|
|
MCSQ: EQU 0EF0H ;ESC/CTRL-S/Q-MERKER FUER GETA/PUTA
|
|
|
|
BRKFLG: EQU 0FC4H
|
|
BRKRTN: EQU 0FC5H
|
|
|
|
DATE: DEFW 0FA2H
|
|
|
|
;------------------------------------------------------
|
|
|
|
ACTCMD: DEFB 0
|
|
DEFB 0
|
|
DEFW COMSTR
|
|
DEFW 0
|
|
DEFW 0
|
|
DEFW 0
|
|
DEFB 0
|
|
DEFW 0
|
|
COMSTR: DEFM 'ACTIVATE $SI;DEFINE 19 $SI'
|
|
DEFB 0DH
|
|
|
|
DEACT: DEFB 0
|
|
DEFB 0
|
|
DEFW COM1ST
|
|
DEFW 0
|
|
DEFW 0
|
|
DEFW 0
|
|
DEFB 0
|
|
DEFW 0
|
|
COM1ST: DEFM 'DEACTIVATE $SI'
|
|
DEFB 0DH
|
|
|
|
;-------------------------------------------------
|
|
|
|
INIPTY:
|
|
LD HL,MCSQ
|
|
SET 0,(HL) ;ESC/CTRL-S UND CTRL-Q WERDEN DURCHGEREICHT
|
|
RET
|
|
|
|
RESPTY:
|
|
LD HL,MCSQ
|
|
RES 0,(HL) ;ALTE UDOS-SYSTEMZUSTAND HERSTELLEN
|
|
RET
|
|
|
|
HWINIT: RET
|
|
HWSTART: RET
|
|
|
|
BRKRET: XOR A
|
|
JP RETURN
|