TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 1 ; ; << ZAP 1-K MONITOR SYSTEM >> ; by ; TECHNICAL DESIGN LABS, INC. ; RESEARCH PARK ; PRINCETON, NEW JERSEY 08540 ; ; COPYRIGHT JAN. 1977 TDL INC. ; ; ASSEMBLED by Roger Amidon ; .PREL ;THIS MONITOR SUPPLIED IN RELOCATING FORMAT ; 0400' LENGTH = Z ;SIZE OF THIS MONITOR ; .TITLE " " .SBTTL / Copyright 1977 by TECHNICAL DESIGN LABS, INC./ ; ; ;-TELEPRINTER ; 0001 TTI = 1 ;DATA IN PORT 0001 TTO = 1 ;DATA OUT PORT 0000 TTS = 0 ;STATUS PORT (IN) 0001 TTYDA = 1 ;DATA AVAILABLE MASK BIT 0080 TTYBE = 80H ;XMTR BUFFER EMPTY MASK ; 0003 RCP = 3 ;READER CONTROL PORT. ;THIS PORT IS PULSED ONCE ;FOR EACH READER REQUEST ;TO SUPPORT A CONTROLLED ;READER. ; ; ; 0000 I = 0 ;'I' REG. VALUE 0000 FALSE = 0 ;ISN'T SO FFFF TRUE = # FALSE ;IT IS SO 000D CR = 0DH ;ASCII CARRIAGE RETURN 000A LF = 0AH ;ASCII LINE FEED 0007 BELL = 7 ;DING 00FF RUB = 0FFH ;RUB OUT 0000 FIL = 00 ;FILL CHARACTERS AFTER CRLF 0007 MAX = 7 ;NUMBER OF QUES IN EOF ; ; ; PROGRAM CODE BEGINS HERE ; 0000' C3 0308' ZAP: JMP BEGIN ;GO AROUND VECTORS ; GET MEMORY SIZE, ; AND CONTINUE AHEAD ; ; TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 2 Copyright 1977 by TECHNICAL DESIGN LABS, INC. ; ; THESE VECTORS MAY BE USED BY USER WRITTEN ; PROGRAMS TO SIMPLIFY THE HANDLING OF I/O ; FROM SYSTEM TO SYSTEM. WHATEVER THE CURRENT ; ASSIGNED DEVICE, THESE VECTORS WILL PERFORM ; THE REQUIRED I/O OPERATION, AND RETURN TO ; THE CALLING PROGRAM. (RET) ; ; THE REGISTER CONVENTION USED FOLLOWS- ; ; ANY INPUT OR OUTPUT DEVICE- ; CHARACTER TO BE OUTPUT IN 'C' REGISTER. ; CHARACTER WILL BE IN 'A' REGISTER UPON ; RETURNING FROM AN INPUT OR OUTPUT. ; 'CSTS'- ; RETURNS TRUE (0FFH IN 'A' REG.) IF THERE IS ; SOMETHING WAITING, AND ZERO (00) IF NOT. ; 'IOCHK'- ; RETURNS WITH THE CURRENT I/O CONFIGURATION ; BYTE IN 'A' REGISTER. ; 'IOSET'- ; I/O CANNOT BE MODIFIED IN THIS 1K VERSION ; 'MEMCK'- ; RETURNS WITH THE HIGHEST ALLOWED USER ; MEMORY LOCATION. 'B'=HIGH BYTE, 'A'=LOW. ; 'TRAP'- ; THIS IS THE 'BREAKPOINT' ENTRY POINT. ; NOT USED IN THE 1K VERSION, GOES TO THE ; 'ERROR' ROUTINE TO RESET THE MONITOR'S ; STACK. ; 0003' C3 0374' JMP CI ;CONSOLE INPUT 0006' C3 037D' JMP RI ;READER INPUT 0009' C3 0222' JMP CO ;CONSOLE OUTPUT 000C' C3 0233' JMP PO ;PUNCH OUTPUT 000F' C3 0222' JMP CO ;LIST OUTPUT 0012' C3 0282' JMP CSTS ;CONSOLE STATUS 0015' 3E00 MVI A,0 ;I/O CHECK 0017' C9 IOSET: RET ;SET TO TTY CONFIGURATION 0018' C3 0017' JMP IOSET ;CAN'T SET I/O ON 1K VERSION 001B' C3 02FF' JMP MEMCK ;MEMORY LIMIT CHECK 001E' CD 0313' ERROR: CALL MEMSIZ ;RESET BACK TO MONITOR (TRAP) 0021' F9 SPHL ;RE-ESTABLISH A STACK 0022' 0E2A MVI C,'*' ;ANNOUNCE ERROR 0024' CD 0222' CALL CO 0027' 1815 JMPR START ; ; MONITOR NAME & VERSION ; 0029' 0D0A000000 MSG: .BYTE CR,LF,FIL,FIL,FIL 002E' 5A61702056 .ASCII 'Zap V' 0033' 322E30 .ASCII '2.0' ; 000D MSGL = .-MSG ; TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 3 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 0034' STACK = .-2 ;A FAKE STACK TO GET STARTED ; 0036' 0038' .WORD AHEAD ;AFTER MEMORY SIZE ; 0038' F9 AHEAD: SPHL ;SET TRUE STACK 0039' 060D MVI B,MSGL ;SAY HELLO TO THE FOLKS 003B' CD 01F2' CALL TOM ;OUTPUT SIGN-ON MSG 003E' 0E3E START: MVI C,'>' ;PROMPT CHARACTER 0040' 21 003E' LXI H,START ;MAIN 'WORK' LOOP 0043' E5 PUSH H ;SET UP A RETURN TO HERE 0044' CD 0278' CALL CRLF 0047' CD 0222' CALL CO 004A' CD 03DC' STAR0: CALL TI ;GET A CONSOLE CHARACTER 004D' E67F ANI 7FH ;IGNORE NULLS 004F' 28F9 JRZ STAR0 ;GET ANOTHER 0051' 0E02 MVI C,2 ;SET-UP C REG. 0053' FE44 CPI 'D' ;SEE IF 'DISPLAY' COMMAND 0055' 2017 JRNZ EOF ; ; THIS DISPLAYS THE CONTENTS OF MEMORY IN BASE HEX ; WITH THE STARTING LOCATION ON EACH LINE.(BETWEEN ; THE TWO PARAMETERS GIVEN). 16 BYTES PER LINE MAX. ; 0057' CD 0273' DISP: CALL EXLF ;GET DISPLAY RANGE 005A' CD 021A' ..D0: CALL LFADR ;CRLF & PRINT ADDR. 005D' CD 0220' ..D1: CALL BLK ;SPACE OVER 0060' 7E MOV A,M 0061' CD 02E3' CALL LBYTE 0064' CD 02BD' CALL HILOX ;RANGE CHECK 0067' 7D MOV A,L 0068' E60F ANI 0FH ;SEE IF TIME TO CRLF 006A' 20F1 JRNZ ..D1 006C' 18EC JMPR ..D0 ; ; THIS OUTPUTS THE END OF FILE (EOF) PATTERN ; FOR THE CHECKSUM LOADER. IT IS USED AFTER ; PUNCHING A BLOCK OF MEMORY WITH THE 'W' ; COMMAND. AN ADDRESS PARAMETER MAY BE GIVEN, ; WHICH WILL BE INCLUDED IN THE END FILE. ; 006E' FE45 EOF: CPI 'E' ;SEE IF 'EOF' 0070' 201A JRNZ FILL 0072' CD 0296' CALL EXPR1 ;GET OPTIONAL ADDR. 0075' CD 022C' CALL PEOL ;CRLF TO PUNCH 0078' 0E3A MVI C,':' ;FILE MARKER CUE 007A' CD 0233' CALL PO 007D' AF XRA A ;ZERO LENGTH 007E' CD 034D' CALL PBYTE 0081' E1 POP H 0082' CD 0348' CALL PADR ;PUNCH OPTIONAL ADDR. 0085' AF XRA A ;FILE TYPE=0 0086' CD 034D' CALL PBYTE ;PUNCH IT 0089' C3 025F' JMP NULL ;TRAILER & RETURN ; ; THIS COMMAND WILL FILL A BLOCK OF MEMORY TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 4 Copyright 1977 by TECHNICAL DESIGN LABS, INC. ; WITH A VALUE. IE; F0,1FFF,0 FILLS FROM ; <1> TO <2> WITH THE BYTE <3>. HANDY FOR ; INITIALIZING A BLOCK TO A SPECIFIC VALUE, OR ; MEMORY TO A CONSTANT VALUE BEFORE LOADING ; A PROGRAM. (ZERO IS ESPECIALLY USEFUL.) ; 008C' FE46 FILL: CPI 'F' ;SEE IF 'FILL' 008E' 200C JRNZ GOTO 0090' CD 028B' CALL EXPR3 ;GET 3 PARAMETERS 0093' 71 ..F: MOV M,C ;STORE THE BYTE 0094' CD 02C3' CALL HILO 0097' 30FA JRNC ..F 0099' D1 POP D ;RESTORE STACK 009A' 18A2 JMPR START ; IN CASE OF ACCIDENTS ; ; THIS COMMAND ALLOWS EXECUTION OF ANOTHER ; PROGRAM. ; 009C' FE47 GOTO: CPI 'G' ;SEE IF 'GOTO' 009E' 2006 JRNZ TEST 00A0' CD 0296' CALL EXPR1 ;GET AN ADDRESS TO GO TO 00A3' C3 0278' JMP CRLF ;CRLF & EXECUTE ; ; THIS IS A 'QUICKIE' MEMORY TEST TO SPOT ; HARD MEMORY FAILURES, OR ACCIDENTLY ; PROTECTED MEMORY LOCATIONS. IT IS NOT ; MEANT TO BE THE DEFINITIVE MEMORY DIAGNOSTIC. ; IT IS, HOWEVER, NON-DESTRUCTIVE. ERRORS ARE ; PRINTED ON THE CONSOLE AS FOLLOWS- ; " 04" WHERE, IN THIS PARTICULAR ; EXAMPLE, BIT 2 IS THE BAD BIT. ; BIT LOCATION OF THE FAILURE IS EASILY ; DETERMINED. NON-R/W MEMORY WILL DISPLAY ; FF (ALL BITS BAD) ; 00A6' FE4A TEST: CPI 'J' ;SEE IF 'TEST' 00A8' 201B JRNZ MOVE 00AA' CD 0273' CALL EXLF ;GET TWO PARAMS 00AD' 7E ..T1: MOV A,M ;READ A BYTE 00AE' 47 MOV B,A ;SAVE IN B REG. 00AF' 2F CMA 00B0' 77 MOV M,A ;READ/COMPLIMENT/WRITE 00B1' AE XRA M ; & COMPARE 00B2' 280B JRZ ..T2 ;SKIP IF ZERO (OK) 00B4' 08 EXAF ;SAVE BAD BYTE 00B5' CD 021D' CALL HLSP ;PRINT BAD ADDR 00B8' 08 EXAF ;GET BAD BYTE BACK 00B9' CD 02E3' CALL LBYTE ;PRINT IT 00BC' CD 0278' CALL CRLF 00BF' 70 ..T2: MOV M,B ;REPLACE BYTE 00C0' CD 02BD' CALL HILOX ;RANGE TEST 00C3' 18E8 JMPR ..T1 ; ; THIS COMMAND MOVES MASS AMOUNTS OF MEMORY ; FROM <1> THRU <2> TO THE ADDRESS STARTING TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 5 Copyright 1977 by TECHNICAL DESIGN LABS, INC. ; AT <3>. THIS ROUTINE SHOULD BE USED WITH ; SOME CAUTION, AS IT COULD SMASH MEMORY IF ; CARELESSLY IMPLEMENTED. ; ; M<1>,<2>,<3> ; 00C5' FE4D MOVE: CPI 'M' ;SEE IF 'MOVE' 00C7' 200B JRNZ READ 00C9' CD 028B' CALL EXPR3 ;GET 3 PARAMETERS 00CC' 7E ..M: MOV A,M ;PICK UP 00CD' 02 STAX B ;PUT DOWN 00CE' 03 INX B ;MOVE UP 00CF' CD 02BD' CALL HILOX ;CHECK IF DONE 00D2' 18F8 JMPR ..M ; ; THIS COMMAND READS THE CHECK-SUMMED HEX FILES ; FOR BOTH THE NORMAL INTEL FORMAT AND THE TDL ; RELOCATING FORMAT. ON BOTH FILES, A 'BIAS' MAY ; BE ADDED, WHICH WILL CAUSE THE OBJECT CODE TO ; BE PLACED IN A LOCATION OTHER THAN ITS ; INTENDED EXECUTION LOCATION. THE BIAS IS ADDED TO ; WHAT WOULD HAVE BEEN THE NORMAL LOADING ; LOCATION, AND WILL WRAP AROUND TO ENABLE ; LOADING ANY PROGRAM ANYWHERE IN MEMORY. ; ; WHEN LOADING A RELOCATABLE FILE, AN ADDITIONAL ; PARAMETER MAY BE ADDED, WHICH REPRESENTS THE ; ACTUAL EXECUTION ADDRESS DESIRED. THIS ALSO MAY ; BE ANY LOCATION IN MEMORY. ; ; EXAMPLES: ; ; R[CR] =0 BIAS, 0 EXECUTION ADDR. ; R[CR] =<1>BIAS, 0 EXECUTION ADDR. ; R,[CR] =0 BIAS, <1> EXECUTION ADDR. ; R,[CR] =<1>BIAS, <2> EXECUTION ADDR. ; 00D4' FE52 READ: CPI 'R' ;SEE IF 'READ' COMMAND 00D6' C2 017C' JNZ SUBS 00D9' CD 0296' CALL EXPR1 ;GET BIAS, IF ANY 00DC' 78 MOV A,B ;LOOK AT DELIMITER 00DD' D60D SUI CR ;ALL DONE? 00DF' 47 MOV B,A ;SET UP RELOCATION OF 0 00E0' 4F MOV C,A ; IF CR ENTERED 00E1' D1 POP D ;BIAS AMOUNT 00E2' 2804 JRZ ..R0 ;CR ENTERED 00E4' CD 0296' CALL EXPR1 ;GET RELOCATION 00E7' C1 POP B ;ACTUAL RELOCATION VALUE 00E8' EB ..R0: XCHG 00E9' D9 EXX ;HL'=BIAS, BC'=RELOCATION 00EA' CD 0278' CALL CRLF 00ED' CD 020C' LOD0: CALL RIFF ;GET A CHARACTER 00F0' E67F ANI 7FH ;KILL PARITY BIT 00F2' D63A SUI ':' ;ABSOLUTE FILE CUE? 00F4' 47 MOV B,A ;SAVE CUE CLUE TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 6 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 00F5' E6FE ANI 0FEH ;KILL BIT 0 00F7' 20F4 JRNZ LOD0 ; NO, KEEP LOOKING 00F9' 57 MOV D,A ;ZERO CHECKSUM 00FA' CD 0162' CALL SBYTE ;GET FILE LENGTH 00FD' 5F MOV E,A ;SAVE IN E REG. 00FE' CD 0162' CALL SBYTE ;GET LOAD MSB 0101' F5 PUSH PSW ;SAVE IT 0102' CD 0162' CALL SBYTE ;GET LOAD LSB 0105' D9 EXX ;CHANGE GEARS 0106' D1 POP D ;RECOVER MSB 0107' 5F MOV E,A ;FULL LOAD ADDR 0108' C5 PUSH B ;BC'=RELOCATION 0109' D5 PUSH D ;DE'=LOAD ADDR 010A' E5 PUSH H ; HL'=BIAS 010B' 19 DAD D ; BIAS+LOAD 010C' E3 XTHL ;RESTORE HL' 010D' DDE1 POP X ; X=BIAS+LOAD 010F' D9 EXX ;DOWNSHIFT 0110' E1 POP H ;HL=LOAD ADDR 0111' CD 0162' CALL SBYTE ;GET FILE TYPE 0114' 3D DCR A ;1=REL. FILE, 0=ABS. 0115' 78 MOV A,B ;SAVE CUE BIT 0116' C1 POP B ;BC=RELOCATION 0117' 2003 JRNZ ..A ;ABSOLUTE FILE 0119' 09 DAD B ;ELSE RELOCATE 011A' DD09 DADX B ;BOTH X & HL 011C' 1C ..A: INR E ;TEST LENGTH 011D' 1D DCR E ;0=DONE 011E' C8 RZ 011F' 3D DCR A ;TEST CUE 0120' 2810 JRZ LODR ;RELATIVE 0122' CD 0162' ..L1: CALL SBYTE ;NEXT 0125' CD 0175' CALL STORE ;STORE IT 0128' 20F8 JRNZ ..L1 ;MORE COMING 012A' CD 0162' LOD4: CALL SBYTE ;GET CHECKSUM 012D' 28BE JRZ LOD0 ;GOOD CHECKSUM 012F' C3 001E' JMP ERROR ;BAD, ABORT 0132' 2E01 LODR: MVI L,1 ;SET-UP BIT COUNTER 0134' CD 0152' ..L1: CALL LODCB ;GET THE BIT 0137' 3807 JRC ..L3 ;DOUBLE BIT 0139' CD 0175' ..L5: CALL STORE ;WRITE IT 013C' 20F6 JRNZ ..L1 013E' 18EA JMPR LOD4 ;TEST CHECKSUM 0140' 4F ..L3: MOV C,A ;SAVE LOW BYTE 0141' CD 0152' CALL LODCB ;NEXT CONTROL BIT 0144' 47 MOV B,A ;SAVE HIGH BYTE 0145' D9 EXX 0146' C5 PUSH B ;GET RELOCATION 0147' D9 EXX 0148' E3 XTHL ;INTO HL 0149' 09 DAD B ;RELOCATE 014A' 7D MOV A,L ;LOW BYTE 014B' CD 0175' CALL STORE ;STORE IT 014E' 7C MOV A,H ;HIGH BYTE 014F' E1 POP H ;RESTORE HL TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 7 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 0150' 18E7 JMPR ..L5 ;DO THIS AGAIN 0152' 2D LODCB: DCR L ;COUNT BITS 0153' 2007 JRNZ ..LC1 ;MORE LEFT 0155' CD 0162' CALL SBYTE ;GET NEXT 0158' 1D DCR E ;COUNT BYTES 0159' 67 MOV H,A ;SAVE THE BITS 015A' 2E08 MVI L,8 ;8 BITS/BYTE 015C' CD 0162' ..LC1: CALL SBYTE ;GET A DATA BYTE 015F' CB24 SLAR H ;TEST NEXT BIT 0161' C9 RET 0162' C5 SBYTE: PUSH B ;PRESERVE BC 0163' CD 0333' CALL RIBBLE ;GET A CONVERTED ASCII CHAR. 0166' 07 RLC 0167' 07 RLC 0168' 07 RLC 0169' 07 RLC ;MOVE IT TO HIGH NIBBLE 016A' 4F MOV C,A ;SAVE IT 016B' CD 0333' CALL RIBBLE ;GET OTHER HALF 016E' B1 ORA C ;MAKE WHOLE 016F' 4F MOV C,A ;SAVE AGAIN IN C 0170' 82 ADD D ;UPDATE CHECKSUM 0171' 57 MOV D,A ;NEW CHECKSUM 0172' 79 MOV A,C ;CONVERTED BYTE 0173' C1 POP B 0174' C9 RET 0175' DD7700 STORE: MOV 0(X),A ;WRITE TO MEMORY 0178' DD23 INX X ;ADVANCE POINTER 017A' 1D DCR E ;COUNT DOWN 017B' C9 RET ; ; THIS ROUTINE ALLOWS BOTH INSPECTION OF & ; MODIFICATION OF MEMORY ON A BYTE BY BYTE ; BASIS. IT TAKES ONE ADDRESS PARAMETER, ; FOLLOWED BY A SPACE. THE DATA AT THAT ; LOCATION WILL BE DISPLAYED. IF IT IS ; DESIRED TO CHANGE IT, THE VALUE IS THEN ; ENTERED. A FOLLOWING SPACE WILL DISPLAY ; THE NEXT BYTE. A CARRIAGE RETURN [CR] ; WILL TERMINATE THE COMMAND. THE SYSTEM ; ADDS A CRLF AT LOCATIONS ENDING WITH EITHER ; XXX0 OR XXX8. TO AID IN DETERMINING THE ; PRESENT ADDRESS, IT IS PRINTED AFTER ; EACH CRLF. A BACKARROW [_] WILL BACK ; UP THE POINTER AND DISPLAY THE ; PREVIOUS LOCATION. ; 017C' FE53 SUBS: CPI 'S' ;SEE IF 'SUBSTITUTE' 017E' 202E JRNZ WRITE 0180' CD 0296' CALL EXPR1 ;GET STARTING ADDR. 0183' E1 POP H 0184' 7E ..S0: MOV A,M 0185' CD 02E3' CALL LBYTE ;DISPLAY THE BYTE 0188' CD 0360' CALL COPCK ;MODIFY? 018B' D8 RC ; NO, ALL DONE 018C' 2814 JRZ ..S1 ;DON'T MODIFY TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 8 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 018E' FE5F CPI '_' ;BACKUP? 0190' 2819 JRZ ..S2 0192' E5 PUSH H ;SAVE POINTER 0193' 0E01 MVI C,1 0195' 21 0000 LXI H,0 0198' CD 029E' CALL EX1 ;GET NEW VALUE 019B' D1 POP D ;VALUE IN E 019C' E1 POP H 019D' 73 MOV M,E ;MODIFY 019E' 78 MOV A,B ;TEST DELIMITER 019F' FE0D CPI CR 01A1' C8 RZ ;DONE 01A2' 23 ..S1: INX H 01A3' 7D ..S3: MOV A,L ;SEE IF TIME TO CRLF 01A4' E607 ANI 7 01A6' CC 021A' CZ LFADR ;TIME TO CRLF 01A9' 18D9 JMPR ..S0 01AB' 2B ..S2: DCX H ;DECREMENT POINTER 01AC' 18F5 JMPR ..S3 ;AND PRINT DATA THERE. ; ; ; THIS ROUTINE DUMPS MEMORY IN THE STANDARD ; INTEL HEX-FILE FORMAT. A START & END ; PARAMETER IS REQUIRED. AT THE CONCLUSION ; OF THE DUMP, AN "END OF FILE" SHOULD BE ; GENERATED WITH THE "E" COMMAND. ; 01AE' FE57 WRITE: CPI 'W' ;SEE IF 'WRITE' COMMAND 01B0' 2061 JRNZ SIZE 01B2' CD 0273' CALL EXLF ;GET TWO PARAMETERS 01B5' CD 0374' CALL CI ;PAUSE FOR PUNCH-ON 01B8' CD 022C' ..W0: CALL PEOL ;CRLF TO PUNCH 01BB' 01 003A LXI B,':' ;START-OF-FILE CUE 01BE' CD 0233' CALL PO ;PUNCH IT 01C1' D5 PUSH D ;SAVE 01C2' E5 PUSH H ; POINTERS 01C3' 04 ..W1: INR B ;CALCULATE FILE LENGTH 01C4' CD 02C3' CALL HILO 01C7' 3824 JRC ..W4 ;SHORT FILE 01C9' 3E18 MVI A,24 ;24 BYTES PER FILE 01CB' 90 SUB B ;ENOUGH YET? 01CC' 20F5 JRNZ ..W1 ; NO. 01CE' E1 POP H ;GET START ADDR BACK. 01CF' CD 01D5' CALL ..W2 ;SEND THE BLOCK 01D2' D1 POP D ;RESTORE END OF FILE POINTER 01D3' 18E3 JMPR ..W0 ;KEEP GOING 01D5' 57 ..W2: MOV D,A ;INITIALIZE CHECKSUM 01D6' 78 MOV A,B ;FILE LENGTH 01D7' CD 034D' CALL PBYTE ;PUNCH IT 01DA' CD 0348' CALL PADR ;PUNCH ADDRESS 01DD' AF XRA A ;FILE TYPE=0 01DE' CD 034D' CALL PBYTE ;PUNCH IT 01E1' 7E ..W3: MOV A,M ;GET A DATA BYTE 01E2' CD 034D' CALL PBYTE ;PUNCH IT 01E5' 23 INX H ;POINT TO NEXT BYTE TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 9 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 01E6' 10F9 DJNZ ..W3 ;DECREMENT FILE COUNT 01E8' AF XRA A 01E9' 92 SUB D ;CALCULATE CHECKSUM 01EA' C3 034D' JMP PBYTE ;PUNCH IT, RETURN 01ED' E1 ..W4: POP H ;CLEAR STACK 01EE' D1 POP D ; OF POINTERS 01EF' AF XRA A ;SET-UP A 01F0' 18E3 JMPR ..W2 ;FINISH UP & RETURN ; ; ; THIS IS A MESSAGE OUTPUT ROUTINE. ; IT IS USED BY THE SIGN-ON AND CRLF. ; POINTER IS IN HL (WHEN ENTERED AT ; TOM1) AND LENGTH IN B REG. ; 01F2' 21 0029' TOM: LXI H,MSG 01F5' 4E TOM1: MOV C,M ;GET A CHARACTER 01F6' 23 INX H ;MOVE POINTER 01F7' CD 0222' CALL CO ;OUTPUT IT 01FA' 10F9 DJNZ TOM1 ;KEEP GOING TILL B=0 01FC' CD 0282' CALL CSTS ;SEE IF AN ABORT REQUEST 01FF' B7 ORA A ; WAITING. 0200' C8 RZ ;NO. ; ; SEE IF CONTROL-C IS WAITING ; ABORT IF SO. ; 0201' CD 0374' CALL CI 0204' E67F ANI 7FH ;KILL PARITY BIT 0206' FE03 CPI 3 ;CONTROL-C? 0208' C0 RNZ ; 0209' C3 001E' ERRX: JMP ERROR ; ; ; THIS GETS A READER CHARACTER, ; AND COMAPRES IT WITH 'D' REG. ; IT ABORTS ON AN 'OUT-OF-DATA' ; CONDITION. ; 020C' CD 037D' RIFF: CALL RI ;GET READER CHARACTER 020F' 38F8 JRC ERRX ;ABORT ON CARRY 0211' BA CMP D ;TEST D 0212' C9 RET ; ; THIS ROUTINE WILL RETURN THE ; CURRENT VALUE OF THE HIGHEST ; READ/WRITE MEMORY LOCATION THAT ; IS AVAILABLE ON THE SYSTEM. ; IT WILL "SEARCH" FOR MEMORY ; STARTING AT THE BOTTOM OF MEMORY ; AND GO UPWARDS UNTIL NON-R/W MEMORY ; IS FOUND. ; 0213' FE5A SIZE: CPI 'Z' ;SEE IF 'SIZE' COMMAND TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 10 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 0215' 2026 JRNZ UNLD 0217' CD 0313' CALL MEMSIZ ;GET THE VALUE ; ; ; CRLF BEFORE HLSP ROUTINE ; 021A' CD 0278' LFADR: CALL CRLF ; ; PRINT THE CURRENT VALUE OF H&L, ; AND A SPACE. ; 021D' CD 02DE' HLSP: CALL LADR ; ; PRINT A SPACE ON THE CONSOLE ; 0220' 0E20 BLK: MVI C,' ' ; ; THIS IS THE MAIN CONSOLE ; OUTPUT ROUTINE. ; TELEPRINTER CONFIGURATION ; I/O DRIVER. ; 0222' DB00 CO: IN TTS 0224' E680 ANI TTYBE 0226' 20FA JRNZ CO 0228' 79 MOV A,C 0229' D301 OUT TTO 022B' C9 RET ; ; SEND CRLF TO PUNCH DEVICE ; 022C' 0E0D PEOL: MVI C,CR 022E' CD 0233' CALL PO 0231' 0E0A MVI C,LF ; ; THIS IS THE 'PUNCH' OUTPUT ; DRIVER. IT IS SET UP FOR THE ; TTY PORTS, BUT MAY BE MODIFIED ; FOR ANOTHER PORT, FOR TRUE ; SEPARATION OF THE CONSOLE ; AND READER/PUNCH DEVICES. ; ; (I.E. - PORT 6 & 7 FOR CASSETTE, ETC.) ; 0233' DB00 PO: IN TTS ;STATUS PORT 0235' E680 ANI TTYBE ;TRANSMITTER BUFFER EMPTY? 0237' 20FA JRNZ PO ;IF NOT, LOOP. 0239' 79 MOV A,C ;GET CHARACTER TO OUTPUT 023A' D301 OUT TTO ;TO DATA PORT 023C' C9 RET ;DONE ; ; THIS IS A BINARY DUMP ROUTINE THAT MAY BE ; USED WITH BOTH PAPER-TAPE AND/OR CASSETTE ; SYSTEMS. IT PUNCHES A START-OF-FILE MARK ; AND THEN PUNCHES IN FULL 8-BITS DIRECTLY TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 11 Copyright 1977 by TECHNICAL DESIGN LABS, INC. ; FROM MEMORY. IT IS FOLLOWED BY AN END-OF- ; FILE MARKER. THESE DUMPS MAY BE LOADED ; USING THE "L" COMMAND. THEY ARE USEFUL ; FOR FAST LOADING. ; ; U,[CR] ; PUNCHES FROM THRU ; 023D' FE55 UNLD: CPI 'U' ;SEE IF 'UNLOAD' COMMAND 023F' 201A JRNZ NULLX 0241' CD 0273' CALL EXLF ;GET TWO PARAMETERS 0244' CD 0374' CALL CI ;PAUSE FOR PUNCH-ON (TTY) 0247' CD 02F6' CALL LEAD ;PUNCH LEADER 024A' CD 02F1' CALL MARK ;PUNCH FILE MARKER 024D' 4E ..U: MOV C,M ;GET MEMORY BYTE 024E' CD 0233' CALL PO ;PUNCH IT 0251' CD 02C3' CALL HILO ;SEE IF DONE 0254' 30F7 JRNC ..U 0256' CD 02F1' CALL MARK ;PUNCH END FILE MARKER 0259' 1804 JMPR NULL ; ; THIS PUNCHES NULLS (LEADER/TRAILER). ; IT RETURNS "QUIET" ; 025B' FE4E NULLX: CPI 'N' ;SEE IF 'NULL' 025D' 206E JRNZ HEXN 025F' CD 02F6' NULL: CALL LEAD ;PUNCH NULLS 0262' C3 004A' JMP STAR0 ;RETURN QUIET ; ; CONVERT HEX TO ASCII ; 0265' 0F CBYTE: RRC 0266' 0F RRC 0267' 0F RRC 0268' 0F RRC ; 0269' E60F CONV: ANI 0FH ;LOW NIBBLE ONLY 026B' C690 ADI 90H 026D' 27 DAA 026E' CE40 ACI 40H 0270' 27 DAA 0271' 4F MOV C,A 0272' C9 RET ; ; GET TWO PARAMETERS, PLACE ; THEM IN DE & HL, AND THEN ; CRLF. ; 0273' CD 0298' EXLF: CALL EXPR 0276' D1 POP D 0277' E1 POP H ; ; CONSOLE CARRIAGE RETURN & ; LINE FEED ROUTINE. ; TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 12 Copyright 1977 by TECHNICAL DESIGN LABS, INC. ; THE NUMBER OF FILL CHARACTERS ; MAY BE ADJUSTED TO 0-3 BY THE ; VALUE PLACED IN THE B REG. MINIMUM ; VALUE FOR "B" IS TWO (2). MAXIMUM ; IS FIVE (5). ; 0278' E5 CRLF: PUSH H ;SAVE HL 0279' C5 PUSH B ; & BC 027A' 0604 MVI B,4 ;CRLF LENGTH (SET FOR 2 FILLS) 027C' CD 01F2' CALL TOM ;SEND CRLF 027F' C1 POP B 0280' E1 POP H 0281' C9 RET ; ; TEST THE CONSOLE'S ; KEYBOARD FOR A KEY-PRESS. ; RETURN TRUE (0FFH IN A REG) ; IF THERE IS A CHARACTER ; WAITING. ; 0282' DB00 CSTS: IN TTS 0284' E601 ANI TTYDA 0286' 3E00 MVI A,FALSE 0288' C0 RNZ ;MAY NEED PATCHING*** 0289' 2F CMA ;IF DIFFERENT I/O USED 028A' C9 RET ; ; GET THREE PARAMETERS AND ; CRLF. ; 028B' 0C EXPR3: INR C 028C' CD 0298' CALL EXPR 028F' CD 0278' CALL CRLF 0292' C1 POP B 0293' D1 POP D 0294' E1 POP H 0295' C9 RET ; ; GET ONE PARAMETER. ; NO CRLF. ; 0296' 0E01 EXPR1: MVI C,1 ; ; THIS IS THE MAIN "PARAMETER-GETTING" ROUTINE. ; THIS ROUTINE WILL ABORT ON A NON-HEX CHARACTER. ; HEX CHARACTERS, AND PLACES THEM UP ON THE STACK. ; (AS ONE 16 BIT VALUE, CONTAINED IN TWO ; 8-BIT BYTES.) IF A CARRIAGE RETURN IS ENTERED, ; IT WILL PLACE THE VALUE OF "0000" IN THE STACK. ; 0298' 21 0000 EXPR: LXI H,0 ;INITIALIZE HL TO ZERO 029B' CD 03DC' EX0: CALL TI ;GET SOMETHING FROM CONSOLE 029E' 47 EX1: MOV B,A ;SAVE IT 029F' CD 0338' CALL NIBBLE ;CONVERT ASCII TO HEX. 02A2' 3808 JRC ..EX2 ;ILLEGAL CHARACTER DETECTED TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 13 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 02A4' 29 DAD H ;MULTIPLY BY 16 02A5' 29 DAD H 02A6' 29 DAD H 02A7' 29 DAD H 02A8' B5 ORA L ;OR IN THE SINGLE NIBBLE 02A9' 6F MOV L,A 02AA' 18EF JMPR EX0 ;GET SOME MORE 02AC' E3 ..EX2: XTHL ;SAVE UP IN STACK 02AD' E5 PUSH H ;REPLACE THE RETURN 02AE' 78 MOV A,B ;TEST THE DELIMITER 02AF' CD 0368' CALL QCHK 02B2' 3002 JRNC ..EX3 ;DELIMITER ENTERED? 02B4' 0D DCR C ;CR, SHOULD GO TO ZERO 02B5' C8 RZ ; RETURN IF IT DOES 02B6' C2 001E' ..EX3: JNZ ERROR ;SOMETHING WRONG 02B9' 0D DCR C ;DO THIS AGAIN? 02BA' 20DC JRNZ EXPR ; YES. 02BC' C9 RET ;ELSE RETURN ; ; RANGE TESTING ROUTINES. ; CARRY SET INDICATES RANGE EXCEEDED. ; 02BD' CD 02C3' HILOX: CALL HILO 02C0' D0 RNC ;OK 02C1' D1 POP D ;RETURN ONE LEVEL BACK 02C2' C9 RET ; 02C3' 23 HILO: INX H ;INCREMENT HL 02C4' 7C MOV A,H ;TEST FOR CROSSING 64K BORDER 02C5' B5 ORA L 02C6' 37 STC ;CARRY SET=STOP 02C7' C8 RZ ;YES, BORDER CROSSED 02C8' 7B MOV A,E ;NOW, TEST HL VS. DE 02C9' 95 SUB L 02CA' 7A MOV A,D 02CB' 9C SBB H 02CC' C9 RET ;IF CARRY WAS SET, THEN STOP ; ; HEXADECIMAL MATH ROUTINE ; ; THIS ROUTINE IS USEFUL FOR ; DETERMINING RELATIVE JUMP ; OFFSETS. IT RETURNS THE SUM ; & DIFFERENCE OF TWO PARAMETERS. ; ; H, ; ; X+Y X-Y ; 02CD' FE48 HEXN: CPI 'H' ;SEE IF HEX MATH 02CF' C2 039C' JNZ LOAD 02D2' CD 0273' CALL EXLF 02D5' E5 PUSH H ;SAVE HL FOR LATER 02D6' 19 DAD D ;GET SUM 02D7' CD 021D' CALL HLSP ;PRINT IT TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 14 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 02DA' E1 POP H ;THIS IS LATER 02DB' B7 ORA A ;CLEAR CARRY 02DC' ED52 DSBC D ;GET DIFFERENCE & PRINT IT ; ; PRINT H&L ON CONSOLE ; 02DE' 7C LADR: MOV A,H 02DF' CD 02E3' CALL LBYTE 02E2' 7D MOV A,L 02E3' F5 LBYTE: PUSH PSW 02E4' CD 0265' CALL CBYTE 02E7' CD 0222' CALL CO 02EA' F1 POP PSW 02EB' CD 0269' CALL CONV 02EE' C3 0222' JMP CO ; ; THIS ROUTINE SENDS EIGHT RUBOUTS ; TO THE PUNCH DEVICE. ; 02F1' 01 08FF MARK: LXI B,08FFH ;SET-UP B&C 02F4' 1803 JMPR LE0 ; ; THIS ROUTINE SENDS BLANKS TO THE ; PUNCH DEVICE. ; 02F6' 01 4800 LEAD: LXI B,4800H ;PRESET FOR SOME NULLS 02F9' CD 0233' LE0: CALL PO 02FC' 10FB DJNZ LE0 02FE' C9 RET ; ; THIS ROUTINE RETURNS TO A USER ; PROGRAM THE CURRENT TOP OF ; MEMORY VALUE MINUS WORKSPACE ; AREA USED BY THE MONITOR. ; 02FF' E5 MEMCK: PUSH H 0300' CD 0313' CALL MEMSIZ 0303' 44 MOV B,H 0304' 3EC0 MVI A,0C0H ;LEAVE SOME ROOM FOR STACK 0306' E1 POP H 0307' C9 RET ; ; WE BEGIN IN THE MIDDLE...... ; 0308' 3E00 BEGIN: MVI A,I ;INITIAL 'I' REG. VALUE 030A' ED47 STAI ;NEEDED IF USING INTERUPT. 030C' AF XRA A ;CLEAR READER CONTROL 030D' D303 OUT RCP ; PORT. 030F' 31 0034' LXI SP,STACK ;SET UP A FAKE STACK ; 0312' 06 .BYTE (MVI) ;SKIP OVER PUSH ; ; THIS IS A CALLED ROUTINE USED ; TO CALCULATE THE TOP OF MEMORY ; STARTING FROM THE BOTTOM OF TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 15 Copyright 1977 by TECHNICAL DESIGN LABS, INC. ; MEMORY, AND SEARCHING UPWARD UNTIL ; FIRST R/W MEMORY IS FOUND, AND THEN ; CONTINUING UNTIL THE END OF THE R/W ; MEMORY. THIS ALLOWS R.O.M. AT ZERO, ; AND INSURES A CONTINUOUS MEMORY BLOCK ; HAS BEEN FOUND. ; IT IS USED BY THE ERROR ROUTINE TO ; RESET THE STACK POINTER. ; 0313' C5 MEMSIZ: PUSH B 0314' 01 0000' LXI B,ZAP ;POINT TO START OF MONITOR 0317' 21 FFFF LXI H,-1 ;RAM SEARCH STARTING PT.-1 031A' 24 ..M0: INR H ;FIRST FIND R/W MEMORY 031B' 7E MOV A,M 031C' 2F CMA 031D' 77 MOV M,A 031E' BE CMP M 031F' 2F CMA 0320' 77 MOV M,A 0321' 20F7 JRNZ ..M0 0323' 24 ..M1: INR H ;R/W FOUND, NOW FIND END 0324' 7E MOV A,M 0325' 2F CMA 0326' 77 MOV M,A 0327' BE CMP M 0328' 2F CMA 0329' 77 MOV M,A 032A' 2004 JRNZ ..M2 032C' 7C MOV A,H ;TEST FOR MONITOR BORDER 032D' B8 CMP B 032E' 20F3 JRNZ ..M1 ;NOT THERE YET 0330' 25 ..M2: DCR H ;BACK UP 0331' C1 POP B 0332' C9 RET ;VALUE IN HL ; ; THIS GETS A READER CHARACTER, AND ; CONVERTS IT FROM ASCII TO HEX. ; 0333' CD 020C' RIBBLE: CALL RIFF 0336' E67F ANI 7FH 0338' D630 NIBBLE: SUI '0' ;QUALIFY & CONVERT 033A' D8 RC ;<0 033B' FE17 CPI 'G'-'0' ;>F? 033D' 3F CMC ;PERVERT CARRY 033E' D8 RC 033F' FE0A CPI 10 ;NMBR? 0341' 3F CMC ;PERVERT AGAIN 0342' D0 RNC ;RETURN CLEAN 0343' D607 SUI 'A'-'9'-1 ;ADJUST 0345' FE0A CPI 10 ;FILTER ":" THRU "@" 0347' C9 RET ; ; SEND H&L VALUE TO PUNCH DEVICE ; 0348' 7C PADR: MOV A,H TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 16 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 0349' CD 034D' CALL PBYTE 034C' 7D MOV A,L ; ; PUNCH A SINGLE BYTE ; 034D' F5 PBYTE: PUSH PSW ;NIBBLE AT A TIME 034E' CD 0265' CALL CBYTE 0351' CD 0233' CALL PO 0354' F1 POP PSW ;NEXT NIBBLE 0355' F5 PUSH PSW ;SAVE FOR CHECKSUM 0356' CD 0269' CALL CONV 0359' CD 0233' CALL PO 035C' F1 POP PSW ;ORIGINAL BYTE HERE 035D' 82 ADD D ;ADDED TO CHECKSUM 035E' 57 MOV D,A ;UPDATE CHECKSUM 035F' C9 RET ; ; 0360' 0E2D COPCK: MVI C,'-' 0362' CD 0222' CALL CO 0365' CD 03DC' CALL TI ; ; TEST FOR DELIMITERS ; 0368' FE20 QCHK: CPI ' ' ;RETURN ZERO IF DELIMITER 036A' C8 RZ 036B' FE2C CPI ',' 036D' C8 RZ 036E' FE0D CPI CR ;RETURN W/CARRY SET IF CR 0370' 37 STC 0371' C8 RZ 0372' 3F CMC ;ELSE NON-ZERO, NO CARRY 0373' C9 RET ; ; MAIN CONSOLE INPUT ROUTINE ; 0374' DB00 CI: IN TTS 0376' E601 ANI TTYDA 0378' 20FA JRNZ CI 037A' DB01 IN TTI 037C' C9 RET ; ; READER INPUT ROUTINE, WITH ; TIME-OUT DELAY. INCLUDES ; PULSING OF HARDWARE PORT ; TO INDICATE REQUEST FOR ; READER DATA. ; ; THIS MAY BE ALTERED TO ANY ; I/O PORT CONFIGURATION TO ENABLE ; SEPARATE READER/PUNCH DEVICE. ; 037D' E5 RI: PUSH H 037E' 3EFF MVI A,0FFH ;MAY BE ALTERED TO SUIT 0380' D303 OUT RCP ;PULSE READER CONTROL PORT TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 17 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 0382' AF XRA A ;CLEAR IT 0383' D303 OUT RCP 0385' 67 MOV H,A ;CLEAR FOR TIME-OUT TEST 0386' DB00 RI0: IN TTS ;MAY BE MODIFIED *** 0388' E601 ANI TTYDA ;BUT ALWAYS USE 'ANI' 038A' 280C JRZ RI2 ;TO CLEAR CARRY 038C' C5 PUSH B 038D' 06FF MVI B,0FFH ;SHORTEN FOR HIGH-SPEED DEVICE 038F' E3 DL0: XTHL ;WASTE TIME 0390' E3 XTHL ;FOR DELAY 0391' 10FC DJNZ DL0 0393' C1 POP B 0394' 25 DCR H 0395' 20EF JRNZ RI0 0397' 37 RI1: STC ;*NOTE: CARRY SET TO INDICATE ; NO DATA. 0398' DB01 RI2: IN TTI 039A' E1 RID: POP H 039B' C9 RET ; ; THIS ROUTINE READS A BINARY FILE ; IMAGE, IN THE FORM AS PUNCHED IN ; THE "U" (UNLOAD) COMMAND. IT TAKES ; ONE PARAMETER, WHICH IS THE STARTING ; ADDRESS OF THE LOAD, AND WILL PRINT ; THE LAST ADDRESS(+1) LOADED ON THE ; CONSOLE DEVICE. ; 039C' FE4C LOAD: CPI 'L' ;SEE IF 'LOAD' COMMAND 039E' 205F JRNZ NEXT 03A0' CD 0296' CALL EXPR1 ;INITIAL LOAD ADDRESS 03A3' E1 POP H 03A4' CD 0278' CALL CRLF 03A7' 16FF MVI D,0FFH ;START-OF-FILE TAG 03A9' 0604 ..L0: MVI B,4 ;FIND AT LEAST FOUR 0FFH'S 03AB' CD 020C' ..L1: CALL RIFF 03AE' 20F9 JRNZ ..L0 03B0' 10F9 DJNZ ..L1 03B2' CD 020C' ..L2: CALL RIFF ;4 FOUND, NOW WAIT FOR NON-0FFH 03B5' 28FB JRZ ..L2 03B7' 77 MOV M,A ;FIRST REAL DATA BYTE 03B8' 3E07 MVI A,BELL ;TELL TTY 03BA' D301 OUT TTO 03BC' 23 ..L3: INX H 03BD' CD 020C' CALL RIFF 03C0' 2803 JRZ ..EL ;POSSIBLE END OF FILE 03C2' 77 MOV M,A 03C3' 18F7 JMPR ..L3 03C5' 0601 ..EL: MVI B,1 ;INITIALIZE 03C7' CD 020C' ..EL0: CALL RIFF 03CA' 2009 JRNZ ..EL1 03CC' 04 INR B ;COUNT QUES 03CD' 3E07 MVI A,MAX ;LOOK FOR EOF 03CF' B8 CMP B ;FOUND MAX? 03D0' 20F5 JRNZ ..EL0 ;NOPE TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 18 Copyright 1977 by TECHNICAL DESIGN LABS, INC. 03D2' C3 02DE' JMP LADR ;YEP, PRINT END ADDR 03D5' 72 ..EL1: MOV M,D 03D6' 23 INX H 03D7' 10FC DJNZ ..EL1 03D9' 77 MOV M,A ;REAL BYTE 03DA' 18E0 JMPR ..L3 ; ; ; THIS IS THE INTERNAL KEYBOARD ; HANDLING ROUTINE. IT WILL IGNORE ; RUBOUTS (0FFH) AND BLANKS (00), ; AND IT WILL NOT ECHO CR'S & N'S. ; (NO N'S FOR THE "NULL" COMMAND). ; IT CONVERTS LOWER CASE TO UPPER ; CASE FOR THE LOOK-UP OF COMMANDS. ; ; OTHER CHARACTERS ARE ECHOED AS THEY ; ARE RECIEVED. ; 03DC' CD 0374' TI: CALL CI 03DF' E67F ANI 7FH ;KILL PARITY BIT 03E1' 3C INR A ;IGNORE RUBOUTS 03E2' F8 RM 03E3' 3D DCR A ;IGNORE NULLS 03E4' C8 RZ 03E5' FE4E CPI 'N' ;IGNORE N'S FOR NULL CMND 03E7' C8 RZ 03E8' FE6E CPI 'n' 03EA' 2810 JRZ ..T 03EC' FE0D CPI CR ;IGNORE CR'S 03EE' C8 RZ 03EF' C5 PUSH B 03F0' 4F MOV C,A 03F1' CD 0222' CALL CO 03F4' 79 MOV A,C 03F5' C1 POP B 03F6' FE40 CPI 'A'-1 ;CONVERT TO UPPER CASE 03F8' D8 RC 03F9' FE7B CPI 'z'+1 03FB' D0 RNC 03FC' E65F ..T: ANI 05FH 03FE' C9 RET ; ; ; ; 03FF' C9 NEXT: RET ;ADDITIONAL COMMANDS ;MAY BE TESTED FROM HERE, ;AND THE MONITOR EXTENDED ;FROM BEYOND THIS POINT. ; ; 0400' Z: ;END OF PROGRAM ; TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 19 Copyright 1977 by TECHNICAL DESIGN LABS, INC. ; ; 0000' .END ZAP TDL Z80 RELOCATING ASSEMBLER VERSION 1.2 PAGE 20 +++++ SYMBOL TABLE +++++ AHEAD 0038' BEGIN 0308' BELL 0007 BLK 0220' CBYTE 0265' CI 0374' CO 0222' CONV 0269' COPCK 0360' CR 000D CRLF 0278' CSTS 0282' DISP 0057' DL0 038F' EOF 006E' ERROR 001E' ERRX 0209' EX0 029B' EX1 029E' EXLF 0273' EXPR 0298' EXPR1 0296' EXPR3 028B' FALSE 0000 FIL 0000 FILL 008C' GOTO 009C' HEXN 02CD' HILO 02C3' HILOX 02BD' HLSP 021D' I 0000 IOSET 0017' LADR 02DE' LBYTE 02E3' LE0 02F9' LEAD 02F6' LENGTH 0400' LF 000A LFADR 021A' LOAD 039C' LOD0 00ED' LOD4 012A' LODCB 0152' LODR 0132' MARK 02F1' MAX 0007 MEMCK 02FF' MEMSIZ 0313' MOVE 00C5' MSG 0029' MSGL 000D NEXT 03FF' NIBBLE 0338' NULL 025F' NULLX 025B' PADR 0348' PBYTE 034D' PEOL 022C' PO 0233' QCHK 0368' RCP 0003 READ 00D4' RI 037D' RI0 0386' RI1 0397' RI2 0398' RIBBLE 0333' RID 039A' RIFF 020C' RUB 00FF SBYTE 0162' SIZE 0213' STACK 0034' STAR0 004A' START 003E' STORE 0175' SUBS 017C' TEST 00A6' TI 03DC' TOM 01F2' TOM1 01F5' TRUE FFFF TTI 0001 TTO 0001 TTS 0000 TTYBE 0080 TTYDA 0001 UNLD 023D' WRITE 01AE' Z 0400' ZAP 0000'