ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \zdumppt1.asm
1 | *************************************************** ZD300010
2 | * * ZD300020
3 | *STATUS- VERSION 2, MODIFICATION 0 * ZD300030
4 | * * ZD300040
5 | *FUNCTION/OPERATION- * ZD300050
6 | * THIS PAPER TAPE SYSTEM PROGRAM LOADS THE * ZD300060
7 | * 1403/1132 STAND-ALONE DUMP PROGRAM INTO LOCA- * ZD300070
8 | * TION /40. THIS PAPER TAPE LOADER IS PUT INTO * ZD300080
9 | * CORE BY MEANS OF THE IPL KEY. * ZD300090
10 | * * ZD300100
11 | *ENTRY POINTS- N/A * ZD300110
12 | * * ZD300120
13 | *INPUT- N/A * ZD300130
14 | * * ZD300140
15 | *OUTPUT- * ZD300150
16 | * * THE STAND-ALONE DUMP PROGRAM IS READ FROM * ZD300160
17 | * PAPER TAPE INTO CORE STARTING AT LOCATION * ZD300170
18 | * /40. * ZD300180
19 | * * INDEX REGISTERS,THE A AND Q REGISTERS,AND * ZD300190
20 | * THE STATUS ARE NOT SAVED OR RESTORED. THE * ZD300200
21 | * PROGRAM CAN ONLY BE USED VIA THE INITIAL * ZD300210
22 | * PROGRAM LOAD KEY, SO IT IS ASSUMED THAT * ZD300220
23 | * MACHINE STATUS IS IMMATERIAL TO THE USER. * ZD300230
24 | * * ZD300240
25 | *EXTERNAL REFERENCES- * ZD300250
26 | * SUBROUTINES- N/A * ZD300260
27 | * COMMA/DCOM- N/A * ZD300270
28 | * * ZD300280
29 | *EXITS- * ZD300290
30 | * NORMAL- BRANCH TO LOCATION /40 TO START DUMP. * ZD300300
31 | * ERROR- N/A * ZD300310
32 | * * ZD300320
33 | *TABLES/WORK AREAS- N/A * ZD300330
34 | * * ZD300340
35 | *ATTRIBUTES- N/A * ZD300350
36 | * * ZD300360
37 | *NOTES- N/A * ZD300370
38 | * * ZD300380
39 | *************************************************** ZD300390
PAPER TAPE STAND-ALONE DUMP LOADER
41 | ABS ZD300410
0000 42 | ORG 0 ZD300420
0000 6500 FE8A 43 | BUFR LDX L1 -374 SET NO. OF WDS TO READ ZD300430
0002 7000 44 | MDX START CONTINUE (2 FRAME CTR) ZD300440
0003 6202 45 | START LDX 2 2 SET FOR 2 FRAMES PER WD ZD300450
0004 0805 46 | XIO SENSR SENSE WITH RESET ZD300460
0005 1005 47 | SLA 5 IS READER READY ZD300470
0006 4C28 0004 48 | BSC L *-4,+Z NO, CHK AGAIN ZD300480
0008 0803 49 | XIO CNTL YES,DO CONTROL FUNC ZD300490
0009 3000 50 | WAIT WAIT FOR INTRPT ZD300500
000A 0000 51 | SENSR DC 0 ZD300510
000B 1F01 52 | DC /1F01 IOCC TO SENSE,RESET ZD300520
000C 0010 53 | CNTL DC INTRP 1134 ILS ADDR (LOC 12) ZD300530
000D 1C00 54 | DC /1C00 CONTROL IOCC ZD300540
000E 0000 55 | READ DC BUFR ZD300550
000F 1A00 56 | DC /1A00 IOCC TO READ ONE FRAME ZD300560
0010 0000 57 | INTRP DC 0 INTRPT SERVICING PORTION ZD300570
0011 08F8 58 | XIO SENSR RESET ANY BUSY INDRS ZD300580
0012 4878 59 | BOSC +-Z TURN OFF INTRPT & SKIP ZD300590
0013 1000 60 | NOP ZD300600
0014 08F9 61 | XIO READ READ CHAR ZD300610
0015 C0EA 62 | LD BUFR GET THE FRAME JUST READ ZD300620
0016 72FF 63 | MDX 2 -1 IS IT THE FIRST HALF OF WD ZD300630
0017 7006 64 | MDX FSTFR YES,GO PUT IN Q REG ZD300640
0018 18C8 65 | RTE 8 NO, PUT TOGETHER WD IN ACC ZD300650
0019 D500 01B6 66 | STO L1 /1B6 STO WD OF TAPE ZD300660
001B 7101 67 | MDX 1 +1 POINT TO NEXT WD ZD300670
001C 70E6 68 | MDX START RET TO GET NEXT WD ZD300680
001D 7022 69 | MDX /40 DONE ZD300690
001E 1898 70 | FSTFR SRT 24 FIRST FRAME--POSITION ZD300700
001F 70E4 71 | MDX START+1 RET TO GET SECOND FRAME ZD300710
0020 72 | END BUFR ZD300720
There were no errors in this assembly
Program transfer address = 0000
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
BUFR 0000 43 55 62 72
CNTL 000C 53 49
FSTFR 001E 70 64
INTRP 0010 57 53
READ 000E 55 61
SENSR 000A 51 46 58
START 0003 45 44 68 71