ZREL/MAC V3.3 Copyright 1984 MicroSmith Computer Technology Pass 1 Pass 2 .Z80 ;set mode for M80 NAME ('LDRBIO') CSEG ORG 0 @CODE: ; DSEG ORG 0 @DATA: CSEG JP @L0 @L9: JP @L1 JP 0E906H JP 0E909H JP 0E90CH JP 0E90FH JP 0E912H JP 0E915H JP 0E918H JP @L2 JP 0E91EH JP 0E921H JP 0E924H JP 0E927H JP 0E92AH JP 0E92DH JP 0E930H JP @L3 JP @L3 JP @L3 JP @L4 JP @L5 JP @L6 JP @L5 JP @L7 JP @L8 JP @L5 JP @L5 JP @L5 JP @L5 JP @L1 JP @L1 @L0: RET ;I 0C9H @L1: LD SP,0100H LD HL,@L9 LD (01H),HL LD HL,(@MXTPA) LD (06H),HL LD A,0C3H LD (00H),A LD (05H),A LD B,024H LD HL,05CH CALL @L10 LD HL,05CH LD (HL),01H INC HL ;# 023H LD DE,@L11 LD BC,0BH CALL @L8 LD DE,05CH LD C,0FH CALL 05H OR A ;7 0B7H JP NZ,@L12 LD DE,0100H @L14: PUSH DE ;U 0D5H LD C,01AH CALL 05H LD DE,05CH LD C,014H CALL 05H OR A ;7 0B7H POP DE ;Q 0D1H JP NZ,@L13 LD HL,080H ADD HL,DE ;019H 019H EX DE,HL ;k 0EBH JP @L14 @L13: CP 01H JP NZ,@L15 JP 0100H @L12: LD DE,@L16 JP @L17 @L15: LD DE,@L18 @L17: LD C,09H CALL 05H LD C,01H CALL 05H JP @L1 @L3: LD A,0FFH @L5: RET ;I 0C9H @L7: XOR A ;/ 0AFH RET ;I 0C9H @L4: LD HL,0FFFFH RET ;I 0C9H @L6: LD HL,0FFFEH RET ;I 0C9H @L8: LD A,(DE) ;01AH 01AH LD (HL),A ;w 077H INC HL ;# 023H INC DE ;013H 013H DEC BC ;0BH 0BH LD A,B ;x 078H OR C ;1 0B1H JP NZ,@L8 RET ;I 0C9H @L2: LD HL,00H LD A,C ;y 079H CP 02H RET NC ;P 0D0H LD B,E ;C 043H PUSH BC ;E 0C5H CALL 0E91BH POP BC ;A 0C1H LD A,L ;} 07DH OR H ;4 0B4H RET Z ;H 0C8H LD (@DATA),HL LD L,C ;i 069H LD H,00H ADD HL,HL ;) 029H ADD HL,HL ;) 029H ADD HL,HL ;) 029H ADD HL,HL ;) 029H ADD HL,HL ;) 029H ADD HL,HL ;) 029H LD DE,@L20 ADD HL,DE ;019H 019H LD A,B ;x 078H AND 01H RET NZ ;@ 0C0H LD (@L21),HL LD B,040H CALL @L10 LD HL,(@DATA) EX DE,HL ;k 0EBH LD HL,(@L21) LD BC,02H CALL @L8 LD BC,0CH ADD HL,BC ;TAB 09H EX DE,HL ;k 0EBH LD BC,0AH ADD HL,BC ;TAB 09H EX DE,HL ;k 0EBH LD BC,04H CALL @L8 EX DE,HL ;k 0EBH LD BC,031H LD HL,(@L21) ADD HL,BC ;TAB 09H PUSH HL ;e 0E5H EX DE,HL ;k 0EBH LD A,0FFH LD (DE),A ;012H 012H LD (HL),E ;s 073H INC HL ;# 023H LD (HL),D ;r 072H INC HL ;# 023H LD (HL),0FFH INC HL ;# 023H LD (HL),0FFH LD HL,(@DATA) LD BC,08H ADD HL,BC ;TAB 09H EX DE,HL ;k 0EBH POP HL ;a 0E1H LD BC,0AH ADD HL,BC ;TAB 09H LD BC,02H CALL @L8 EX DE,HL ;k 0EBH LD E,(HL) ;^ 05EH INC HL ;# 023H LD D,(HL) ;V 056H LD HL,(@L21) LD BC,0CH ADD HL,BC ;TAB 09H PUSH HL ;e 0E5H LD HL,(@L21) LD BC,020H ADD HL,BC ;TAB 09H POP BC ;A 0C1H LD A,L ;} 07DH LD (BC),A ;02H 02H INC BC ;03H 03H LD A,H ;| 07CH LD (BC),A ;02H 02H LD BC,0FH CALL @L8 LD HL,@L22 LD B,0FH CALL @L10 LD HL,@L23 LD (@L24),HL LD HL,@L22 LD (@L25),HL LD (HL),0FFH LD HL,(@L21) RET ;I 0C9H @L10: LD (HL),00H INC HL ;# 023H DEC B ;05H 05H JP NZ,@L10 RET ;I 0C9H @L11: LD B,E ;C 043H LD B,E ;C 043H LD D,B ;P 050H JR NZ,@CODE+01C7H JR NZ,@CODE+01C9H JR NZ,@CODE+01EEH LD C,A ;O 04FH LD C,L ;M 04DH @L16: DEC C ;CR 0DH LD A,(BC) ;LF 0AH LD B,D ;B 042H LD C,C ;I 049H LD C,A ;O 04FH LD D,E ;S 053H JR NZ,@CODE+0218H LD H,C ;a 061H LD L,(HL) ;n 06EH DAA ;' 027H LD (HL),H ;t 074H JR NZ,@CODE+022AH LD (HL),B ;p 070H LD H,L ;e 065H LD L,(HL) ;n 06EH JR NZ,@CODE+0203H LD B,E ;C 043H LD D,B ;P 050H LD L,043H LD C,A ;O 04FH LD C,L ;M 04DH JR NZ,@CODE+01ECH @L18: DEC C ;CR 0DH LD A,(BC) ;LF 0AH LD B,D ;B 042H LD C,C ;I 049H LD C,A ;O 04FH LD D,E ;S 053H JR NZ,@CODE+0238H LD H,C ;a 061H LD (HL),E ;s 073H JR NZ,@CODE+0236H LD H,C ;a 061H LD H,H ;d 064H JR NZ,@CODE+024BH LD H,L ;e 065H LD H,E ;c 063H LD (HL),H ;t 074H LD L,A ;o 06FH LD (HL),D ;r 072H JR NZ,@CODE+0248H LD L,(HL) ;n 06EH JR NZ,@CODE+0225H LD B,E ;C 043H LD D,B ;P 050H LD L,043H LD C,A ;O 04FH LD C,L ;M 04DH JR NZ,@CODE+020EH ; DSEG ORG 02H @L21: ORG 04H @L20: ORG 084H EXTERNAL @CIVEC EXTERNAL @COVEC EXTERNAL @AOVEC EXTERNAL @LOVEC EXTERNAL @BNKBF EXTERNAL @CRDMA EXTERNAL @CRDSK EXTERNAL @FX EXTERNAL @RESEL EXTERNAL @VINFO EXTERNAL @USRCD EXTERNAL @ERMDE EXTERNAL @DATE EXTERNAL @HOUR EXTERNAL @MIN EXTERNAL @SEC EXTERNAL @MXTPA ; CSEG @L25 EQU @DATA+018H @L24 EQU @DATA+04EH @L23 EQU @DATA+053H @L22 EQU @DATA+044H ; END No fatal errors