ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \zcpdumpp.asm PAPER-TAPE CONSOLE PRINTER DUMP 2 | *************************************************** ZDP00020 3 | *STATUS-VERSION 2, MODIFICATION 000 * ZDP00030 4 | *FUNCTION/OPERATION-THIS IS A STAND-ALONE DUMP * ZDP00040 5 | *PROGRAM WRITTEN EXPRESSLY FOR THE PAPER TAPE USER* ZDP00050 6 | *IT COMES IN THE FORM OF A PAPER-TAPE STRIP * ZDP00060 7 | *PUNCHED IN PAPER-TAPE IPL FORMAT(4 BITS PER * ZDP00070 8 | *FRAME).THE PROGRAM IS LOADED STARTING AT LOCATION* ZDP00080 9 | *ZERO AND EXECUTES FROM LOW-CORE. THE PROGRAM * ZDP00090 10 | *DUMPS MEMORY IN HEX.FORMAT,8 WORDS PER LINE ON * ZDP00100 11 | *THE CONSOLE PRINTER. THE STARTING ADDRESS OF THE * ZDP00110 12 | *DUMP IS READ FROM THE BIT SWITCHES. * ZDP00120 13 | * * ZDP00130 14 | *ENTRY POINTS- * ZDP00140 15 | * *START-AFTER THE TAPE IS LOADED BY IPL, * ZDP00150 16 | * CONTROL IS PASSED TO LOC. ZERO(START) * ZDP00160 17 | * *INTRP-THIS IS THE TYPEWRITER INTERRUPT * ZDP00170 18 | * SERVICE ENTRY POINT. * ZDP00180 19 | * * ZDP00190 20 | *INPUT- STARTING ADDRESS THROUGH BIT SWITCHES * ZDP00200 21 | * * ZDP00210 22 | *OUTPUT- PRINTED OUTPUT ON THE TYPEWRITER * ZDP00220 23 | * * ZDP00230 24 | *EXTERNAL REFERENCES- NONE * ZDP00240 25 | * * ZDP00250 26 | *EXITS-NORMAL NONE, PROGRAM EXECUTES CONTINUOUSLY * ZDP00260 27 | *UNTIL EITHER IMM STOP OR PROG.STOP IS PRESSED. * ZDP00270 28 | * * ZDP00280 29 | *TABLES/WORKAREA .BUF. ONE WORD LOCATION FROM * ZDP00290 30 | *WHICH EACH CHARACTER IS PRINTED, .TABLE. A TABLE * ZDP00300 31 | *CONTAINING 16 R/T CHARACTERS,0-F,PACKED 2 PER WD.* ZDP00310 32 | * * ZDP00320 33 | *ATTRIBUTES-REUSABLE * ZDP00330 34 | * * ZDP00340 35 | *NOTES--WAITS WITH /2000 IN ACC ON TYPEWRITER * ZDP00350 36 | *NOT READY.ALSO WAITS AT LOC /54 WHEN PROGRAM * ZDP00360 37 | *STOP KEY IS PRESSED. * ZDP00370 38 | *************************************************** ZDP00380 39 | ABS ZDP00390 40 | *PAPER TAPE STRIP DUMP ON TYPEWRITER. STARTING ZDP00400 41 | *ADDRESS ENTERED FROM BIT SWITCHES. ZDP00410 0000 42 | ORG 0 ZDP00420 0000 0841 43 | START XIO BITSW READ STARTING ADDRESS ZDP00430 0001 C042 44 | LD ADDR ADDRESS FROM BIT SWITCHES ZDP00440 0002 E042 45 | AND FFF0 EXTRACT ADDRESS MOD 16 ZDP00450 0003 D040 46 | STO ADDR ADDRESS OF LINE ZDP00460 0004 6310 47 | LINE LDX 3 16 WDS PER LINE COUNT ZDP00470 0005 4012 48 | BSI PRINT PRINT LINE ADDRESS ZDP00480 0006 402B 49 | BSI RDYTS READY TEST ZDP00490 0007 0838 50 | XIO WRITE PRINT ADDITIONAL SPACE ZDP00500 0008 C480 0044 51 | NEXT LD I ADDR WORD TO PRINT ZDP00510 000A 400D 52 | BSI PRINT GO TYPE ONE WORD ZDP00520 000B 7002 53 | MDX OVER SKIP OVER INTERRUPT WORDS ZDP00530 000C 003A 54 | DC INTRP LEVEL 4 INTERRUPT ZDP00540 000D 0053 55 | DC PSTOP PROGRAM STOP INTERRUPT ZDP00550 000E 7401 0044 56 | OVER MDX L ADDR,1 NEXT ADDRESS ZDP00560 0010 73FF 57 | MDX 3 -1 DECREMENT LINE COUNT ZDP00570 0011 70F6 58 | MDX NEXT NEXT WD IF LINE NOT DONE ZDP00580 0012 C033 59 | LD CRTN CARRIER RETURN CODE TO ZDP00590 0013 D034 60 | STO BUF *OUTPUT BUFFER ZDP00600 0014 401D 61 | BSI RDYTS READY TEST ZDP00610 0015 082A 62 | XIO WRITE CARRIER RETURN ZDP00620 0016 C02D 63 | LD ADDR ADDRESS OF LINE ZDP00630 0017 70EC 64 | MDX LINE PRINT ADDRESS OF NEXT LINE ZDP00640 65 | * ZDP00650 66 | *SUBROUTINE TO CONVERT A WORD TO 4 HEX CHARACTERS ZDP00660 67 | *AND TYPE THEN ON THE CONSOLE PRINTER ZDP00670 68 | * ZDP00680 0018 0000 69 | PRINT DC 0 ZDP00690 0019 18D0 70 | RTE 16 SAVE WORD IN EXTENSION ZDP00700 001A 6104 71 | LDX 1 4 XR1 IS 4-CHAR-COUNTER ZDP00710 001B 6200 72 | STAR2 LDX 2 0 XR2 IS ODD/EVEN SWITCH. ZDP00720 001C 1010 73 | SLA 16 CLEAR ACC ZDP00730 001D 1084 74 | SLT 4 BRING IN ONE CHAR ZDP00740 001E 4804 75 | BSC E IS CHAR EVEN,YES,SKIP ZDP00750 001F 7208 76 | MDX 2 8 NO,SET XR2 TO SHIFT 8 ZDP00760 0020 1801 77 | SRA 1 DIVIDE BY 2 ZDP00770 0021 801C 78 | A TBLAD CREATE ADDR OF CHAR IN TABL ZDP00780 0022 D002 79 | STO LOAD+1 ZDP00790 0023 400E 80 | READY BSI RDYTS READY TEST ZDP00800 0024 C400 0000 81 | LOAD LD L *-* LD 2 R/T CHARS FROM TABLE ZDP00810 0026 1200 82 | SLA 2 0 LEFT JUSTIFY IF NECESSARY ZDP00820 0027 D020 83 | STO BUF STORE CHARECTER ZDP00830 0028 0817 84 | XIO WRITE TYPE ONE CHARACTER ZDP00840 0029 71FF 85 | MDX 1 -1 CHK IF 4 CHARS,1 WD,DONE ZDP00850 002A 70F0 86 | MDX STAR2 NO,GO GET NEXT CHARACTER ZDP00860 002B C01D 87 | LD TABLE-1 SPACE CHARACTER ZDP00870 002C 901B 88 | S BUF ZDP00880 002D 4C98 0018 89 | BSC I PRINT,+- EXIT IF LAST CHAR WAS SPACE ZDP00890 002F 6200 90 | LDX 2 0 SET XR2 FOR NO SHIFT ZDP00900 0030 C016 91 | LD MINUS POINT TO SPACE CHAR IN TABL ZDP00910 0031 70EF 92 | MDX READY-2 PRINT SPACE ZDP00920 93 | * ZDP00930 94 | *TEST TYPEWRITER FOR READY ZDP00940 95 | * ZDP00950 0032 0000 96 | RDYTS DC *-* ZDP00960 0033 080A 97 | XIO SENSE-1 SENSE TYPEWRITER ZDP00970 0034 1005 98 | SLA 5 ZDP00980 0035 4C90 0032 99 | BSC I RDYTS,- EXIT IF READY ZDP00990 0037 C01A 100 | LD H2000 NOT READY,LOAD ERROR CODE ZDP01000 0038 3000 101 | WAIT WAIT FOR OPERATOR ZDP01010 0039 70F9 102 | MDX RDYTS+1 TRY AGAIN ZDP01020 103 | * ZDP01030 104 | * TYPEWRITER INTERRUPT SERVICE ZDP01040 105 | * ZDP01050 003A 0000 106 | INTRP DC *-* ZDP01060 003B 0802 107 | XIO SENSE-1 SENSE WITH RESET ZDP01070 003C 4CC0 003A 108 | BOSC I INTRP TURN OFF INTRP LVL AND EXIT ZDP01080 109 | * ZDP01090 003E 110 | BSS E 0 ZDP01100 003E 004A 111 | TBLAD DC TABLE ADDRESS OF CHARACTER TABLE ZDP01110 003F 0F03 112 | SENSE DC /0F03 SENSE/RESET IOCC ZDP01120 0040 0048 113 | WRITE DC BUF PRINT ZDP01130 0041 0902 114 | DC /0902 *IOCC ZDP01140 0042 0044 115 | BITSW DC ADDR ADDR. OF BIT SW READ-IN ZDP01150 0043 3A00 116 | DC /3A00 BIT SWITCH IOCC ZDP01160 0044 0000 117 | ADDR DC *-* ZDP01170 0045 FFF0 118 | FFF0 DC /FFF0 LINE ADDRESS MASK ZDP01180 0046 8100 119 | CRTN DC /8100 CARRIER RETURN CODE ZDP01190 0047 FFFF 120 | MINUS DC -1 CONST USED FOR SPACING ZDP01200 0048 0000 121 | BUF DC 0 WD USED TO TYPE CHAR FROM ZDP01210 0049 2100 122 | DC /2100 SPACE ZDP01220 004A C4FC 123 | TABLE DC /C4FC *ROT./TILT CHARACTERS 01 ZDP01230 004B D8DC 124 | DC /D8DC *ROT./TILT CHARACTERS 23 ZDP01240 004C F0F4 125 | DC /F0F4 *ROT./TILT CHARACTERS 45 ZDP01250 004D D0D4 126 | DC /D0D4 *ROT./TILT CHARACTERS 67 ZDP01260 004E E4E0 127 | DC /E4E0 *ROT./TILT CHARACTERS 89 ZDP01270 004F 3C18 128 | DC /3C18 *ROT./TILT CHARACTERS AB ZDP01280 0050 1C30 129 | DC /1C30 *ROT./TILT CHARACTERS CD ZDP01290 0051 3410 130 | DC /3410 *ROT./TILT CHARACTERS EF ZDP01300 131 | * ZDP01310 0052 2000 132 | H2000 DC /2000 NOT READY ERROR CODE ZDP01320 133 | * ZDP01330 134 | * PROGRAM STOP INTERRUPT SERVICE ZDP01340 135 | * ZDP01350 0053 0000 136 | PSTOP DC *-* ZDP01360 0054 3000 137 | WAIT WAIT OPERATOR ACTION ZDP01370 0055 4CC0 0053 138 | BOSC I PSTOP TURN OFF LEVEL AND EXIT ZDP01380 139 | * ZDP01390 0057 140 | END START ZDP01400 There were no errors in this assembly Program transfer address = 0000 === CROSS REFERENCES ========================================================== Name Val Defd Referenced ADDR 0044 117 44 46 51 56 63 115 BITSW 0042 115 43 BUF 0048 121 60 83 88 113 CRTN 0046 119 59 FFF0 0045 118 45 H2000 0052 132 100 INTRP 003A 106 54 108 LINE 0004 47 64 LOAD 0024 81 79 MINUS 0047 120 91 NEXT 0008 51 58 OVER 000E 56 53 PRINT 0018 69 48 52 89 PSTOP 0053 136 55 138 RDYTS 0032 96 49 61 80 99 102 READY 0023 80 92 SENSE 003F 112 97 107 STAR2 001B 72 86 START 0000 43 140 TABLE 004A 123 87 111 TBLAD 003E 111 78 WRITE 0040 113 50 62 84