ibm:ibm1130-lib:dmsr2v12:zdumpcd1_lst
ZDUMPCD1
| Table Of Contents |
|---|
|
- zdumpcd1.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \zdumpcd1.asm 1 | *************************************************** ZD100010 2 | * * ZD100020 3 | * STATUS- VERSION 2, MODIFICATION 11 * ZD100025 4 | * * ZD100030 5 | * PROGRAM NAME- STAND ALONE CORE DUMP,PHASE 1 * ZD100040 6 | * * ZD100050 7 | * FUNCTION/OPERATION- * ZD100060 8 | * THIS PHASE IS LOADED INTO CORE BY CIL-BOOT-* ZD100070 9 | * STRAP TO LOC /74. * ZD100080 10 | * IT DETERMINES THE SIZE OF CORE AND * ZD100090 11 | * SETS UP THE LINE COUNTER FOR THE PRINTER * ZD100100 12 | * ACCORDINGLY. THE ROUTINE ALSO CHECKS TO SEE* ZD100110 13 | * WHICH PRINTER IS ON THE SYSTEM. IF THE 1403* ZD100120 14 | * IS ON THE SYSTEM AND READY IT WILL BE USED.* ZD100130 15 | * * ZD100140 16 | * ENTRY POINTS- START IS THE ONLY ENTRY POINT. * ZD100150 17 | * THE PROGRAM THEN GOES TO THE LOADER (CIL- * ZD100160 18 | * BOOTSTRAP)TO BRING IN PHASE 2. * ZD100170 19 | * * ZD100180 20 | * INPUT- NONE * ZD100190 21 | * * ZD100200 22 | * OUTPUT- THE LINE COUNT FOR THE PRINTER OUTPUT * ZD100210 23 | * IS SAVED IN CORE LOCATION 4. * ZD100220 24 | * AN INDICATOR WD AT LOCATION /26 IS SET * ZD100230 25 | * AS FOLLOWS- * ZD100240 26 | * ZERO -- 1403 PRINTER USED * ZD100250 27 | * NON-ZERO -- 1132 PRINTER USED * ZD100260 28 | * * ZD100270 29 | * EXTERNAL REFERENCES- THE INTERRUPT BRANCH * ZD100280 30 | * WORDS FOR INTERRUPT LEVEL 1 (LOC 9) AND * ZD100290 31 | * INTERRUPT LEVEL 4 (LOC 12) ARE SET TO * ZD100300 32 | * THE PROGRAMS OWN ILS ROUTINES. WORDS 9 * ZD100310 33 | * AND 12 ARE RESTORED. * ZD100320 34 | * * ZD100330 35 | * ERROR CONDITIONS- NO ERRORS ARE RECOGNIZED. * ZD100340 36 | * IF NO PRINTER IS READY ON THE SYSTEM,THE * ZD100350 37 | * PROGRAM JUST LOOPS UNTIL ONE IS READY. * ZD100360 38 | * * ZD100370 39 | * NOTES- * ZD100380 40 | * *THIS PROGRAM MUST BE CONVERTED TO 8/8 * ZD100382 41 | * FORMAT WITH DATA IN COLUMNS 1 THRU 72. * ZD100384 42 | * COLUMNS 73 THRU 80 ARE TO CONTAIN THE * ZD100386 43 | * SEQUENCE NUMBERS. * ZD100388 44 | * *THE PROGRAM IS LOADED INTO CORE BY THE * ZD100390 45 | * 2-CARD BOOTSTRAP LOADER. * ZD100392 46 | * * ZD100394 47 | *************************************************** ZD100400 1403/1132 STAND ALONE CORE DUMP,PH 1 49 | ABS ZD100420 0074 50 | ORG /74 ZD100430 0074 6300 51 | START LDX 3 0 XR3=0--FOR SHORT INSTR ZD100440 52 | * ZD100450 53 | *SAVE WORDS 1E0 THRU 1E4-- THESE LOCATIONS ARE ZD100460 54 | *DESTROYED WHEN 2ND PHASE IS LOADED.THEY ARE ZD100470 55 | *RESTORED WHEN THE SECOND PHASE STARTS EXECUTION. ZD100480 56 | * ZD100490 0075 CC00 01E0 57 | LDD L /1E0 ZD100500 0077 D8A6 58 | STD /1E ZD100510 0078 CC00 01E2 59 | LDD L /1E2 ZD100520 007A D8A5 60 | STD /20 ZD100530 61 | * ZD100540 007B C309 62 | LD 3 NINE SAVE WORDA 9 AND ZD100550 007C D056 63 | STO SAV9 *12 IN BOOTSTRAP ZD100560 007D C30C 64 | LD 3 TWLVE *LOADER AREA BEFORE ZD100570 007E D055 65 | STO SAV12 *SETTINF INTRP ADDR ZD100580 007F C018 66 | LD INTA4 SET UP 1403 INTERRUPT SUB- ZD100590 0080 D30C 67 | STO 3 TWLVE *ROUTINE ADDR IN WD. 12 ZD100600 0081 C018 68 | LD INTAD SET UP 1132 INTERRUPT SUB- ZD100610 0082 D309 69 | STO 3 NINE *ROUTINE ADDR IN WD. 9 ZD100620 70 | * ZD100630 71 | * SUBROUTINE TO DETERMINE THE SIZE OF CORE AND SET ZD100640 72 | * UP THE LINE-COUNTER--CTR-- ACCORDING TO THE ZD100650 73 | * CORE-SIZE,227 LINES FOR 1ST 4K AND 256 LINES FOR ZD100660 74 | * EVERY ADDITIONAL 4K. ZD100670 75 | * ZD100680 0083 C480 00A4 76 | CORE1 LD I COREL SAVE CONTENTS OF CORE LOC ZD100690 0085 D020 77 | STO PACK *4097 ZD100700 0086 1010 78 | SLA 16 PUT ZERO IN 4097 ZD100710 0087 D480 00A4 79 | STO I COREL *IN 4097, 8193 ETC ZD100720 0089 7100 80 | MDX 1 0 IS LOC 1 ZERO ZD100730 008A 7003 81 | MDX GR4K NO ,TRY NEXT HIGHER SIZE ZD100740 008B C046 82 | LD CTR1 YES, ZD100750 008C D304 83 | STO 3 CTR *SAVE LINE CNT OF 227 ZD100760 008D 7019 84 | MDX PTEST GO DO PRINTER TEST ZD100770 008E C016 85 | GR4K LD D256 NEXT HIGHER SIZE-- INCR ZD100780 008F 8042 86 | A CTR1 LINE CTR BY 256 ZD100790 0090 D041 87 | STO CTR1 ZD100800 88 | * ZD100810 0091 C014 89 | LD PACK RESTORE LOC ZD100820 0092 D480 00A4 90 | STO I COREL *4097, 8193 ETC ZD100830 0094 C004 91 | LD D4096 MODIFY CORE ADDR BY 4096 ZD100840 0095 800E 92 | A COREL TO TRY FOR NEXT HIGHER ZD100850 0096 D00D 93 | STO COREL CORE SIZE. ZD100860 0097 70EB 94 | MDX CORE1 RET TO TRY AGAIN ZD100870 95 | * ZD100880 96 | *CONSTANTS AND BUFFER AREA ZD100890 97 | * ZD100900 0098 00D6 98 | INTA4 DC INT4 ADDR OF 1403 PRINTER ZD100910 99 | * *INTRPT ROUTINE ZD100920 0099 1000 100 | D4096 DC /1000 CONSTANT OF 4K = 4096 ZD100930 000C 101 | TWLVE EQU 12 ADDR OF INTRPT LEVEL 4 WD ZD100940 009A 00DC 102 | INTAD DC INT ZD100950 103 | * INTERUPT ROUTINE ZD100960 0009 104 | NINE EQU 9 ADDR OF INTRPT LEVEL 1 WRD ZD100970 009C 105 | BSS E 0 ZD100980 009C 0001 106 | SPAC3 DC 1 IOCC TO SPACE 1403 ZD100990 009D AC00 107 | DC /AC00 *PRINTER ZD101000 009E 0000 108 | SENS3 DC 0 IOCC TO SENSE 1403 ZD101010 009F AF01 109 | DC /AF01 *PRINTER ZD101020 00A0 F000 110 | SENS2 DC /F000 IOCC TO SENSE 1132 PRINTER ZD101030 00A1 3701 111 | DC /3701 *WITH RESET ZD101040 00A2 C500 112 | SPACE DC /C500 IOCC TO SPACE 1132 ZD101050 00A3 3401 113 | DC /3401 *PRINTER ZD101060 00A4 1001 114 | COREL DC /1001 CORE LOC BUFFER(NOW 4097) ZD101070 00A5 0100 115 | D256 DC 256 NO. OF LINES FOR ADDING 4K ZD101080 00A6 0000 116 | PACK DC 0 TEMPORARY STG FOR TEST WD ZD101090 117 | * ZD101100 118 | *TEST FOR WHICH PRINTER IS ON SYSTEM,1403 OR 1132 ZD101110 119 | *IFBOTH ARE ON SYSTEM AND BOTH ARE READY,DUMP IS ZD101120 120 | *ON 1403. ZD101130 121 | * ZD101140 00A7 08F6 122 | PTEST XIO SENS3 CHK 1403 PRINTER READY ZD101150 00A8 4804 123 | BSC E YES, SKIP ZD101160 00A9 7005 124 | MDX PT010 NO, GO CHK 1132 PRINTER ZD101170 00AA 08F1 125 | STSPC XIO SPAC3 ONE SPACE ON 1403 ZD101180 00AB 08F2 126 | XIO SENS3 SENSE FOR CARRIAGE BUSY ZD101190 00AC 1802 127 | SRA 2 ZD101200 00AD 4C04 00BF 128 | BSC L D1403,E BUSY ,START DUMP ON 1403 ZD101210 00AF 08F0 129 | PT010 XIO SENS2 NOT BUSY ,CHECK 1132 READY ZD101220 00B0 1005 130 | SLA 5 NO READY BIT TO SIGN BIT ZD101230 00B1 4C28 00A7 131 | BSC L PTEST,+Z IF NOT RDY RET TO 1403 ZD101240 00B3 08EE 132 | XIO SPACE TEST 1132 READY, DO 1 SPACE ZD101250 00B4 08EB 133 | XIO SENS2 TEST 1132 BUSY ZD101260 00B5 1003 134 | SLA 3 CARRIAGE BUSY TO SIGN BIT ZD101270 00B6 4C28 00B9 135 | BSC L D1132,+Z BUSY, START DUMP ON 1132 ZD101280 00B8 70EE 136 | MDX PTEST NOT BUSY,BACK TO 1403 TEST ZD101290 137 | * ZD101300 138 | *SET A SWITCH TO INDICATE O/P DEVICE,AND PREPARE ZD101310 139 | *TO GO TO LOADER TO GET SECOND PHASE ZD101320 140 | * ZD101330 00B9 D326 141 | D1132 STO 3 PRNSW SET 1132 SWITCH NON-ZERO ZD101340 00BA 08E5 142 | LOOP1 XIO SENS2 LOOP UNTIL 1132 ZD101350 00BB 1003 143 | SLA 3 HAS FINISHED SPACING ZD101360 00BC 4C28 00BA 144 | BSC L LOOP1,+Z ZD101370 00BE 7006 145 | MDX NXTLD PREPARE TO RET TO LOADER ZD101380 00BF 1810 146 | D1403 SRA 16 SET SWITCH TO DUMP ON ZD101390 00C0 D326 147 | STO 3 PRNSW *1403 PRINTER ZD101400 00C1 08DC 148 | LOOP2 XIO SENS3 LOOP UNTIL 1403 ZD101410 00C2 100D 149 | SLA 13 *FINISHES ZD101420 00C3 4C28 00C1 150 | BSC L LOOP2,+Z *SPACING ZD101430 00C5 C00A 151 | NXTLD LD H74 SET UP NEXT PHASE ZD101440 00C6 D08E 152 | STO BRAD BRANCH ADDRESS ZD101450 00C7 C009 153 | LD H4F ZD101460 00C8 D0A5 154 | STO ADRSS AND LOAD ADDR-/25. ZD101470 00C9 C00B 155 | LD CDNO SET UP NO. OF CARDS ZD101480 00CA D0A2 156 | STO NOCDX *LOADER IS TO READ ZD101490 00CB C007 157 | LD SAV9 ZD101500 00CC D309 158 | STO 3 NINE RESTORE INTRPT LEVEL 1 WD ZD101510 00CD C006 159 | LD SAV12 ZD101520 00CE D30C 160 | STO 3 TWLVE RESTORE INTRPT LEVEL 4 WD ZD101530 00CF 7087 161 | MDX LOAD LD. NXT.PH.OF DUMP PROGRAM ZD101540 162 | * ZD101550 163 | *CONSTANTS AND BUFFER AREA ZD101560 164 | * ZD101570 00D0 0074 165 | H74 DC /74 BR ADDR OF SECOND PHASE ZD101580 00D1 004F 166 | H4F DC /4F LOAD ADDR MINUS /25 ZD101590 00D2 00E3 167 | CTR1 DC 227 LINE COUNT ZD101600 00D3 0000 168 | SAV9 DC 0 BUFFER TO SAVE WD 9 ZD101610 00D4 0000 169 | SAV12 DC 0 BUFFER TO SAVE WD 12 ZD101620 00D5 0009 170 | CDNO DC 9 NO. CDS TO LD,SECOND PHASE ZD101630 171 | * ZD101640 172 | * BOOTSTRAP ADDRESSES ZD101650 173 | * ZD101660 0055 174 | BRAD EQU /55 BRANCH ADDRESS ZD101670 0057 175 | LOAD EQU /57 RETURN TO LOADER ZD101680 006D 176 | NOCDX EQU /6D ADDR OF NO. CDS TO LD ZD101690 006E 177 | ADRSS EQU /6E LOAD ADDRESS ZD101700 0004 178 | CTR EQU /0004 ADDR OF NO. OF LINES TO PR ZD101710 0026 179 | PRNSW EQU /26 PTR SW(0=1403,OTHER=1132) ZD101720 180 | * ZD101730 181 | * 1403 PRINTER INTERRUPT ROUTINE ZD101740 182 | * ZD101750 00D6 0000 183 | INT4 DC 0 ADDR OF RET TO LOADER ZD101760 00D7 D0CF 184 | STO SAV SAVE ACC ZD101770 00D8 08C5 185 | XIO SENS3 SENSE WITH RESET ZD101780 00D9 C0CD 186 | LD SAV RESTORE ACC ZD101790 00DA 4CC0 00D6 187 | BOSC I INT4 TURN OFF INTRPT LEVEL,RET ZD101800 00A7 188 | SAV EQU PTEST TEMPORARY STG FOR ACC ZD101810 189 | * ZD101820 190 | * 1132 PRINTER INTERRUPT ROUTINE ZD101830 191 | * ZD101840 00DC 0001 192 | INT DC 1 SAVE RETURN ADDRESS ZD101850 00DD 08C2 193 | XIO SENS2 SENSE DEVICE WITH RESET ZD101860 00DE 4CC0 00DC 194 | BOSC I INT TURN OFF INTRPT LEVEL,RET ZD101870 00E0 195 | END START ZD101880 There were no errors in this assembly Program transfer address = 0074 === CROSS REFERENCES ========================================================== Name Val Defd Referenced ADRSS 006E 177 154 BRAD 0055 174 152 CDNO 00D5 170 155 CORE1 0083 76 94 COREL 00A4 114 76 79 90 92 93 CTR 0004 178 83 CTR1 00D2 167 82 86 87 D1132 00B9 141 135 D1403 00BF 146 128 D256 00A5 115 85 D4096 0099 100 91 GR4K 008E 85 81 H4F 00D1 166 153 H74 00D0 165 151 INT 00DC 192 102 194 INT4 00D6 183 98 187 INTA4 0098 98 66 INTAD 009A 102 68 LOAD 0057 175 161 LOOP1 00BA 142 144 LOOP2 00C1 148 150 NINE 0009 104 62 69 158 NOCDX 006D 176 156 NXTLD 00C5 151 145 PACK 00A6 116 77 89 PRNSW 0026 179 141 147 PT010 00AF 129 124 PTEST 00A7 122 84 131 136 188 SAV 00A7 188 184 186 SAV12 00D4 169 65 159 SAV9 00D3 168 63 157 SENS2 00A0 110 129 133 142 193 SENS3 009E 108 122 126 148 185 SPAC3 009C 106 125 SPACE 00A2 112 132 START 0074 51 195 STSPC 00AA 125 TWLVE 000C 101 64 67 160
ibm/ibm1130-lib/dmsr2v12/zdumpcd1_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator