MARKE6PASM;--------------------------------------; ; MARKE6P =Ueberarbeitung v.MARKE 10.93; ; ; ; Auflisten d. Markentabelle, ; ; Drucken ueber Protokollfkt. ; ;--------------------------------------; ; ORG 0BB40H ;Achtung! ; PV1 EQU 0F003H OCHR EQU 24H NOUT EQU 20H OSTR EQU 23H CRLF EQU 2CH KBDS EQU 0CH KBD EQU 04H HLHX EQU 1AH SPAC EQU 2BH CLS EQU 0CH ; KRIT DEFB 00H ; DEFW 0DDDDH DEFM 'MARKE' DEFB 01H CALL PV1 DEFB OSTR DEFB 0CH DEFM 'DRUCKEN? (J)' DEFB 0 CALL PV1 DEFB KBD PUSH AF LD A,02H CALL PV1 DEFB OCHR POP AF CP 'J' LD A,00H JR NZ,LOS CALL PV1 DEFB OSTR DEFB 0FH DEFW 0A0DH DEFM 'PROGRAMM: ' DEFB 0 CALL PV1 DEFB 17H LD A,0FH LOS LD (KRIT),A CALL PV1 DEFB CRLF LD HL,(0074H) AAAC LD B,03H AAAB PUSH BC CALL UPRO INC HL PUSH HL LD BC,(0072H) OR A SBC HL,BC POP HL POP BC JR Z,AAAA DJNZ AAAB CALL PV1 DEFB CRLF CALL PV1 DEFB KBDS CP 13H JR NZ,AAAC PUSH HL AAAD RES 0,(IX+08H) CALL PV1 DEFB KBD CP 0AH JR NZ,AAAD POP HL JR AAAC ; AAAA CALL PV1 DEFB CRLF LD A,(KRIT) CALL PV1 DEFB OCHR CALL PV1 DEFB NOUT RET ; UPRO LD E,(HL) INC HL LD D,(HL) INC HL INC HL LD B,06H AAAF LD A,(HL) CP 3AH JR NZ,AAAE CALL PV1 DEFB SPAC JR AAAH AAAE CALL PV1 DEFB OCHR INC HL AAAH DJNZ AAAF LD A,'=' CALL PV1 DEFB OCHR EX DE,HL CALL PV1 DEFB HLHX EX DE,HL CALL PV1 DEFB OSTR DEFM ' ' DEFB 0 RET