ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u5dmp80.asm
CALL DMP80
DMP80 SUBROUTINE
3 | *************************************************** U5A00030
4 | * * U5A00040
5 | * PROGRAM NAME - DMP80 SUBROUTINE * U5A00050
6 | * PURPOSE - DUMP CORE LOCATIONS 000 THRU 079 ONTO * U5A00060
7 | * TYPEWRITER. * U5A00070
8 | * CALLING SEQUENCE - * U5A00080
9 | * CALL DMP80 * U5A00090
10 | * * U5A00100
11 | *************************************************** U5A00110
12 | * DUMP 80 ROUTINE U5A00120
13 | ENT DMP80 U5A00130
14 | * U5A00140
15 | * DMP80 U5A00150
16 | * U5A00160
0000 17 | BSS E 0 U5A00170
0000 0000 18 | SENSE DC 0 INTERRUPT ADDRESS FROM EDIT U5A00180
0001 0F03 19 | DC /0F03 SENSE AND RESET IOCC U5A00190
0002 0004R 20 | WRITE DC BUF WRITE IOCC U5A00200
0003 0902 21 | DC /0902 * IOCC U5A00210
0004 8100 22 | BUF DC /8100 CHAR. TO BE WRITTEN U5A00220
23 | * DUMP CORE 000-079 ONTO TYPEWRITER U5A00230
0005 0000 24 | DMP80 DC 0 ENTRY POINT U5A00240
0006 7401 0032 25 | MDX L $IOCT,1 U5A00250
0008 1000 26 | NOP U5A00260
27 | * SAVE WORD AT INTERRUPT LEVEL XX FOR DUMP U5A00270
0009 C480 0000R 28 | LD I SENSE U5A00280
000B D042 29 | STO SAVWD U5A00290
30 | * INTERRUPT ON TYPEWRITER LEVEL GOES TO TAG U5A00300
000C C046 31 | LD CTAG U5A00310
000D D480 0000R 32 | STO I SENSE U5A00320
33 | * RETURN CARRIAGE U5A00330
000F 402F 34 | BSI WRT U5A00340
0010 C400 0000 35 | STAR1 LD L *-* LOAD WORD TO ACC. U5A00350
0011R 36 | MWORD EQU *-1 U5A00360
0012 7404 0050R 37 | MDX L C4,4 U5A00370
0014 1890 38 | SRT 16 SHIFT ACC TO EXT U5A00380
0015 1010 39 | STAR2 SLA 16 U5A00390
40 | * FOUR BITS TO ROTATE AND TILT U5A00400
0016 1084 41 | SLT 4 U5A00410
0017 803A 42 | A CTHEX U5A00420
0018 D001 43 | STO *+1 U5A00430
0019 C400 0000 44 | LD L *-* ADD 4 BITS TO TABLE ADDR. U5A00440
001B D0E8 45 | STO BUF U5A00450
46 | * WRITE ONE HEX. CHARACTER U5A00460
001C 4022 47 | BSI WRT U5A00470
001D 74FF 0050R 48 | MDX L C4,-1 U5A00480
001F 70F5 49 | MDX STAR2 U5A00490
0020 C044 50 | LD SPACE U5A00500
0021 D0E2 51 | STO BUF U5A00510
52 | * SPACE BETWEEN EACH WORD U5A00520
0022 401C 53 | BSI WRT U5A00530
0023 C040 54 | LD CARR U5A00540
0024 D0DF 55 | STO BUF U5A00550
0025 C0EB 56 | LD MWORD U5A00560
0026 100C 57 | SLA 12 U5A00570
0027 F030 58 | EOR TYHEX+4 TEST FOR END OF ROW U5A00580
0028 4818 59 | BSC +- U5A00590
60 | * RETURN CARRIAGE U5A00600
0029 4015 61 | BSI WRT U5A00610
002A 7401 0011R 62 | MDX L MWORD,1 NEXT CORE WORD U5A00620
002C C0E4 63 | LD MWORD U5A00630
64 | * TEST FOR SAVED WORD ADDRESS U5A00640
002D 90D2 65 | S SENSE U5A00650
002E 4C20 0032R 66 | BSC L ENDQ,Z U5A00660
0030 C01D 67 | LD SAVWD U5A00670
0031 70E0 68 | MDX STAR1+2 U5A00680
0032 C0DE 69 | ENDQ LD MWORD U5A00690
0033 901D 70 | S LSTWD U5A00700
0034 4C20 0010R 71 | BSC L STAR1,Z TEST FOR END OF DUMP U5A00710
72 | * RESTORE INTERRUPT WORD U5A00720
0036 D0DA 73 | STO MWORD INIT. TO WORD ZERO U5A00730
0037 C016 74 | LD SAVWD U5A00740
0038 D480 0000R 75 | STO I SENSE U5A00750
003A 74FF 0032 76 | MDX L $IOCT,-1 U5A00760
003C 1000 77 | NOP U5A00770
78 | * RETURN TO MAIN PROGRAM U5A00780
003D 4C80 0005R 79 | BSC I DMP80 U5A00790
003F 1000 80 | WRT NOP SUBROUTINE TO TYPE U5A00800
0040 08BF 81 | XIO SENSE U5A00810
0041 1005 82 | SLA 5 U5A00820
0042 4C28 0040R 83 | BSC L WRT+1,Z+ U5A00830
0044 08BD 84 | XIO WRITE U5A00840
0045 3000 85 | WAIT WAIT FOR INTERRUPT U5A00850
0046 4C80 003FR 86 | BSC I WRT U5A00860
0048 1000 87 | TAG NOP INTERRUPT LEVEL SUBROUTINE U5A00870
0049 D005 88 | STO SAVA U5A00880
004A 08B5 89 | XIO SENSE U5A00890
004B C003 90 | LD SAVA U5A00900
004C 4CC0 0048R 91 | BOSC I TAG U5A00910
004E 0000 92 | SAVWD DC 0 SAVED ILS ADDR. U5A00920
004F 0000 93 | SAVA DC 0 SAVED ACC U5A00930
0050 0000 94 | C4 DC 0 COUNTER OF 4 BITS U5A00940
0051 0050 95 | LSTWD DC 80 END OF DUMP COMPARE NUMBER U5A00950
0052 0054R 96 | CTHEX DC TYHEX ADDR OF ROTATE/TILT TABLE U5A00960
0053 0048R 97 | CTAG DC TAG ADDR OF TEMP. ILS U5A00970
98 | * U5A00980
99 | * ROTATE AND TILT CODE U5A00990
100 | * U5A01000
0054 C400 101 | TYHEX DC /C400 0 U5A01010
0055 FC00 102 | DC /FC00 1 U5A01020
0056 D800 103 | DC /D800 2 U5A01030
0057 DC00 104 | DC /DC00 3 U5A01040
0058 F000 105 | DC /F000 4 U5A01050
0059 F400 106 | DC /F400 5 U5A01060
005A D000 107 | DC /D000 6 U5A01070
005B D400 108 | DC /D400 7 U5A01080
005C E400 109 | DC /E400 8 U5A01090
005D E000 110 | DC /E000 9 U5A01100
005E 3C00 111 | DC /3C00 A U5A01110
005F 1800 112 | DC /1800 B U5A01120
0060 1C00 113 | DC /1C00 C U5A01130
0061 3000 114 | DC /3000 D U5A01140
0062 3400 115 | DC /3400 E U5A01150
0063 1000 116 | DC /1000 F U5A01160
0064 8100 117 | CARR DC /8100 CARRIAGE RETURN U5A01170
0065 2100 118 | SPACE DC /2100 SPACE U5A01180
119 | * FOR 1130 OPERATION U5A01190
0000 120 | ORG SENSE U5A01200
0000 000C 121 | DC 12 U5A01210
0066 122 | ORG SPACE+1 CORRECT EOP CARD U5A01220
0032 123 | $IOCT EQU 50 ISS COUNTER U5A01230
0066 124 | END U5A01240
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$IOCT 0032 123 25 76
BUF 0004R 22 20 45 51 55
C4 0050R 94 37 48
CARR 0064R 117 54
CTAG 0053R 97 31
CTHEX 0052R 96 42
DMP80 0005R 24 79
ENDQ 0032R 69 66
LSTWD 0051R 95 70
MWORD 0011R 36 56 62 63 69 73
SAVA 004FR 93 88 90
SAVWD 004ER 92 29 67 74
SENSE 0000R 18 28 32 65 75 81 89 120
SPACE 0065R 118 50 122
STAR1 0010R 35 68 71
STAR2 0015R 39 49
TAG 0048R 87 91 97
TYHEX 0054R 101 58 96
WRITE 0002R 20 84
WRT 003FR 80 34 47 53 61 83 86