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