ibm:ibm1130-lib:dmsr2v12:u5dmp80_lst
U5DMP80
| Table Of Contents |
|---|
|
- u5dmp80.lst
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
ibm/ibm1130-lib/dmsr2v12/u5dmp80_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator