Disk View
0x00000…00200 HomeBlock {
0x00000…00200 label = »CRD1242 « // @0x0
0x00000…00200 bfdadr = 0x00000002 // @0x10
0x00000…00200 free_ent = 0x00000003 // @0x14
0x00000…00200 first_free = 0x00000007 // @0x18
0x00000…00200 sectors = 0x000001f4 // @0x1c
0x00000…00200 bst_size = 0x0000 // @0x20
0x00000…00200 asf_adr = 0x00000000 // @0x22
0x00000…00200 bst = 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 // @0x26
0x00000…00200 bstsz = 0x0000 // @0x1b6
0x00000…00200 unused = 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 // @0x1b8
0x00000…00200 boot_entry = 0x00000000 // @0x1ec
0x00000…00200 created = 000000000000 // @0x1f0
0x00000…00200 accessed = 000000000000 // @0x1f6
0x00000…00200 format = 0x0000 // @0x1fc
0x00000…00200 state = 0x0000 // @0x1fe
0x00000…00200 }
0x00200…00400 IndexBlock {pad00=0x00000000, secno=[0x00000002, 0x00000003, 0x00000004, 0x00000005, 0x00000006, 0x00000007, 0x00000008, 0x00000009, 0x0000000a, 0x0000000b]}
0x00400…00600 BasicFileDesc {nbr=0x0000, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x1400, bfd05=0x0000, nsect=0x000a, bfd07=0x0000, areasz=0x0001, sector=0x0001, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xfffd, bfd0f=0x0000}
0x00600…00800 BasicFileDesc {nbr=0x0001, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000a, length=0x0200, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x000c, bfd0a=0x0000, bfd0b=0xfffc, flags=0x49e1, bfd0d=0x0000, min3=0xfffd, bfd0f=0x0000}
0x00800…00a00 BasicFileDesc {nbr=0x0002, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x0200, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0000, sector=0x000e, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xfffd, bfd0f=0x0000}
0x00a00…00c00 BasicFileDesc {nbr=0x0003, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x025d, bfd05=0x0000, nsect=0x0002, bfd07=0x0000, areasz=0x0001, sector=0x000f, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x00c00…00e00 BasicFileDesc {nbr=0x0004, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x86e1, bfd05=0x0000, nsect=0x0044, bfd07=0x0000, areasz=0x0001, sector=0x0010, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x00e00…01000 BasicFileDesc {nbr=0x0005, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x5a31, bfd05=0x0000, nsect=0x002e, bfd07=0x0000, areasz=0x0001, sector=0x0011, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x01000…01200 BasicFileDesc {nbr=0x0006, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0xe888, bfd05=0x0000, nsect=0x0075, bfd07=0x0000, areasz=0x0001, sector=0x0012, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x01200…01400 BasicFileDesc {nbr=0x0007, ok=0x0000, bfd01=0x0008, bfd02=0x0000, type=0x0000, length=0x0000, bfd05=0x0000, nsect=0x0000, bfd07=0x0000, areasz=0x0000, sector=0x0000, bfd0a=0x0000, bfd0b=0x0000, flags=0x0000, bfd0d=0x0000, min3=0x0000, bfd0f=0x0000}
0x01400…01600 BasicFileDesc {nbr=0x0008, ok=0x0000, bfd01=0x0009, bfd02=0x0000, type=0x0000, length=0x0000, bfd05=0x0000, nsect=0x0000, bfd07=0x0000, areasz=0x0000, sector=0x0000, bfd0a=0x0000, bfd0b=0x0000, flags=0x0000, bfd0d=0x0000, min3=0x0000, bfd0f=0x0000}
0x01600…01800 BasicFileDesc {nbr=0x0009, ok=0x0000, bfd01=0x0000, bfd02=0x0000, type=0x0000, length=0x0000, bfd05=0x0000, nsect=0x0000, bfd07=0x0000, areasz=0x0000, sector=0x0000, bfd0a=0x0000, bfd0b=0x0000, flags=0x0000, bfd0d=0x0000, min3=0x0000, bfd0f=0x0000}
0x01800…01a00 IndexBlock {pad00=0x00000000, secno=[0x0000000d]}
0x01a00…01a20 SymbolicFileDesc {valid=0x0001, fname=»BFD«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01a20…01a40 SymbolicFileDesc {valid=0x0001, fname=»MD«, file=0x0001, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01a40…01a60 SymbolicFileDesc {valid=0x0001, fname=»BM«, file=0x0002, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01a60…01a80 SymbolicFileDesc {valid=0x0001, fname=»TCPNAS«, file=0x0003, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01a80…01aa0 SymbolicFileDesc {valid=0x0001, fname=»UTILIS«, file=0x0004, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01aa0…01ac0 SymbolicFileDesc {valid=0x0001, fname=»FDLOAD«, file=0x0005, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01ac0…01ae0 SymbolicFileDesc {valid=0x0001, fname=»AMUSRC«, file=0x0006, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01ae0…01b00 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
[…0x8…]
0x01c00…01c80 DataSector[bfd#0x0002]
[…0x3…]
0x01e00…02000 IndexBlock {pad00=0x4f4c4446, secno=[0x000000cc, 0x000000cd]}
0x02000…02200 IndexBlock {pad00=0x5441ffff, secno=[0x00000088, 0x00000089, 0x0000008a, 0x0000008b, 0x0000008c, 0x0000008d, 0x0000008e, 0x0000008f, 0x00000090, 0x00000091, 0x00000092, 0x00000093, 0x00000094, 0x00000095, 0x00000096, 0x00000097, 0x00000098, 0x00000099, 0x0000009a, 0x0000009b, 0x0000009c, 0x0000009d, 0x0000009e, 0x0000009f, 0x000000a0, 0x000000a1, 0x000000a2, 0x000000a3, 0x000000a4, 0x000000a5, 0x000000a6, 0x000000a7, 0x000000a8, 0x000000a9, 0x000000aa, 0x000000ab, 0x000000ac, 0x000000ad, 0x000000ae, 0x000000af, 0x000000b0, 0x000000b1, 0x000000b2, 0x000000b3, 0x000000b4, 0x000000b5, 0x000000b6, 0x000000b7, 0x000000b8, 0x000000b9, 0x000000ba, 0x000000bb, 0x000000bc, 0x000000bd, 0x000000be, 0x000000bf, 0x000000c0, 0x000000c1, 0x000000c2, 0x000000c3, 0x000000c4, 0x000000c5, 0x000000c6, 0x000000c7, 0x000000c8, 0x000000c9, 0x000000ca, 0x000000cb]}
0x02200…02400 IndexBlock {pad00=0x0000ffff, secno=[0x000000ce, 0x000000cf, 0x000000d0, 0x000000d1, 0x000000d2, 0x000000d3, 0x000000d4, 0x000000d5, 0x000000d6, 0x000000d7, 0x000000d8, 0x000000d9, 0x000000da, 0x000000db, 0x000000dc, 0x000000dd, 0x000000de, 0x000000df, 0x000000e0, 0x000000e1, 0x000000e2, 0x000000e3, 0x000000e4, 0x000000e5, 0x000000e6, 0x000000e7, 0x000000e8, 0x000000e9, 0x000000ea, 0x000000eb, 0x000000ec, 0x000000ed, 0x000000ee, 0x000000ef, 0x000000f0, 0x000000f1, 0x000000f2, 0x000000f3, 0x000000f4, 0x000000f5, 0x000000f6, 0x000000f7, 0x000000f8, 0x000000f9, 0x000000fa, 0x000000fb]}
0x02400…02600 IndexBlock {pad00=0x3030ffff, secno=[0x00000013, 0x00000014, 0x00000015, 0x00000016, 0x00000017, 0x00000018, 0x00000019, 0x0000001a, 0x0000001b, 0x0000001c, 0x0000001d, 0x0000001e, 0x0000001f, 0x00000020, 0x00000021, 0x00000022, 0x00000023, 0x00000024, 0x00000025, 0x00000026, 0x00000027, 0x00000028, 0x00000029, 0x0000002a, 0x0000002b, 0x0000002c, 0x0000002d, 0x0000002e, 0x0000002f, 0x00000030, 0x00000031, 0x00000032, 0x00000033, 0x00000034, 0x00000035, 0x00000036, 0x00000037, 0x00000038, 0x00000039, 0x0000003a, 0x0000003b, 0x0000003c, 0x0000003d, 0x0000003e, 0x0000003f, 0x00000040, 0x00000041, 0x00000042, 0x00000043, 0x00000044, 0x00000045, 0x00000046, 0x00000047, 0x00000048, 0x00000049, 0x0000004a, 0x0000004b, 0x0000004c, 0x0000004d, 0x0000004e, 0x0000004f, 0x00000050, 0x00000051, 0x00000052, 0x00000053, 0x00000054, 0x00000055, 0x00000056, 0x00000057, 0x00000058, 0x00000059, 0x0000005a, 0x0000005b, 0x0000005c, 0x0000005d, 0x0000005e, 0x0000005f, 0x00000060, 0x00000061, 0x00000062, 0x00000063, 0x00000064, 0x00000065, 0x00000066, 0x00000067, 0x00000068, 0x00000069, 0x0000006a, 0x0000006b, 0x0000006c, 0x0000006d, 0x0000006e, 0x0000006f, 0x00000070, 0x00000071, 0x00000072, 0x00000073, 0x00000074, 0x00000075, 0x00000076, 0x00000077, 0x00000078, 0x00000079, 0x0000007a, 0x0000007b, 0x0000007c, 0x0000007d, 0x0000007e, 0x0000007f, 0x00000080, 0x00000081, 0x00000082, 0x00000083, 0x00000084, 0x00000085, 0x00000086, 0x00000087]}
0x02600…02680 DataSector[bfd#0x0006]
[…0x1d3…]
0x11000…11080 DataSector[bfd#0x0004]
[…0x10f…]
0x19800…19880 DataSector[bfd#0x0003]
[…0x7…]
0x19c00…19c80 DataSector[bfd#0x0005]
[…0xb7…]
0x1f800…1f880 UnusedSector ┆ET OWN PSW; ;NOTE HAS TO BE MEM_SECTION 0; MOV XBASE R4 ; AND BASE; MOVC FDMEMBUF R5 ; POINT FD MEM_BUFFER; MOV FDCPAGE R3 ;┆
0x1f880…1f900 UnusedSector ┆ GET CURRENT OUTPUT PAGE; IOR R2 R3 ; ESTABLISH NEW PSW THAT SECTION; MOV FDCLOAD R7 ; POINT OUTPUT_AREA; MVP 0. X6 R1 ; FOR ┆
0x1f900…1f980 UnusedSector ┆I:=1 UNTIL BUFFER_SIZE FD3120: ; DO MOV 0. X5 R0 ; GET NEXT WORD LDS R3 ; SWITCH TO RELEVANT SECTION; MODN R4 MOV R0 0. X7 ;┆
0x1f980…1fa00 UnusedSector ┆ INSERT WORD IN OUTPUT_AREA; LDS R2 ; RETURN OWN PAGE; INCD R5 R7 ; ADJUST POINTERS; IEQ R7 0 ; IF PAGE BOUNDARY ADDC 1<2 R3┆
0x1fa00…1fa80 UnusedSector ┆ ; THEN SWITCH PAGE ; (NEGLECTING CARRY BIT); SOB R1 FD3120 ; UNTIL WHOLE BUFFER COPIED; MOV R7 FDCLOAD ; MOV R3 FDCPAGE ; ┆
0x1fa80…1fb00 UnusedSector ┆MOVC XR0 R7 ; RE-ESTABLISH UNS 7 ; ALL REGISTERS; JMP 1. X6 ; RETURN CALLER; ;FF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x1fb00…1fb80 UnusedSector ┆TION OF (PROMMED) ; CPU_TEST SEQUENCES; MOVC #1000 R3 ; SET-UP COUNT (4K PROM); MOVC 0 R0 ; OBJECT_SECTION 0; MOV TCBASE R2 ┆
0x1fb80…1fc00 UnusedSector ┆; GET "BASE" CPU_TEST PROGRAMS; MOV XBASE R7 ; SUB R7 R2 ; MAKE REL "OWN" BASE; JMPI S6 COPY ; COPY CPU_TEST PROGRAMS ; TO M┆
0x1fc00…1fc80 UnusedSector ┆EMORY #1000 UPWARDS; MOV XBASE R3 ; MOV TCBASE R1 ; GET START OF CPU_TEST_PROGRAMS; SUB R3 R1 ; SET-UP CPU-TEST-"OWN=_BASE; ┆
0x1fc80…1fd00 UnusedSector ┆MOV TCBASE R2 ; MOV XPROG R7 ; SUB R7 R2 ; SET-UP CPU_TEST-"OWN"_PROG; MOV R1 R7 ; MOV 0. X7 R0 ; GET FIRST STATEMENT; INE ┆
0x1fd00…1fd80 UnusedSector ┆R0 #0158 ; IF NOT 'JMP LOC' JMPI ERROR ; THEN ERRORONEOUS MODULE; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; RAM RESIDENT VERSION ┆
0x1fd80…1fe00 UnusedSector ┆ACCEPTED ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; JMP S4 LOC+2 ; BY-PASS INSTRUCTION; JMPI S4 OUTSTRING MVP 0. X4 R0 ; GET INS┆
0x1fe00…1fe80 UnusedSector ┆TRUCTION MOV R0 0. X7 ; INSERTED AS FIRST OF AREA; MOV R2 R6 ; JMP S5 LOC+1 ; ESTABLISH LINK BACK; JMP X6 ; ACTIVATE RAM_RES┆
0x1fe80…1ff00 UnusedSector ┆T ┆
0x1ff00…1ff80 UnusedSector ┆ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; SET-UP CPU_TEST CONTROL ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ADD R1 R4 ; ADJUST REF┆
0x1ff80…20000 UnusedSector ┆(CPU_TEST_PGMS); MOV R1 R7 ; MOVC TCPOOL R6 ; TEC20: ; REPEAT MOVL 0. X4 R01 ; IEQ R0 #BE ; IF TEST UNDEFINED (TRAP) SUB R0┆
0x20000…20080 UnusedSector ┆ R0 ; THEN FORCE DUMMY TEST; IEQ R0 0 ; IF DUMMY TEST JMP TEC30 ; THEN INE R0 #8000 ; IF NOT END_OF_TEST_FILE ADD R2 R0 ; AD┆
0x20080…20100 UnusedSector ┆ TRANSFER TYPE MOV R0 R2 ; JMPI S4 OUTSTRING, <:D: :>, EOT JMPI S6 INCHAR ; GET FD DRIVE_NO; JMPI S6 FDBLOAD ; LOAD_FILE FRO┆
0x20100…20180 UnusedSector ┆M FD JMP & UT5010 ;*** FAILED: RETURN_MAIN_LINE; ; R:(FILE OK); JMPI S6 OUTNL ; LDS R2 ; CHANGE TO RELEVANT PAGE; LDN R3 ; ┆
0x20180…20200 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; PROCEDURE BREAK_POINT R:(LINK/LINK+1); ; R0 - DESTROYED (IF ┆
0x20200…20280 UnusedSector ┆BREAK ACTIVE) ; R1-5 - KEPT ; R6 LINK KEPT ; R7 - DESTROYED ; RETURN: ; LINK BREAK DETECTED ; LINK+1 NO BREAK DETECTED ;;;;;;;;;┆
0x20280…20300 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; SB1350: ;BREAK_POINT: MOV SCMADR R7 ; GET DEVICE_ADDRESS; MODC SCMSTATUS SIO R7 R7 ; SENSE(ST┆
0x20300…20380 UnusedSector ┆ATUS, DEVICE); SBZ R7 SCMFRAME ; IF FRAMING ERROR SBN R7 SCMIRDY ; .AND. INPUT_READY HIGH JMP 1. X6 ; THEN MOV SCMADR R7 ; R┆
0x20380…20400 UnusedSector ┆E-ESTABLISH DEVICE ADDRESS; MOVC SCMRESET R0 ; MODC SCMCMD CIO R0 R7 ; RESET ERROR FLAGS; RIO R0 R7 ; EMPTY RECEIVE BUUFER; ┆
0x20400…20480 UnusedSector ┆ JMP 0. X6 ; RETURN CELLER (ERROR); NOLIST ELSE LIST ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ┆
0x20480…20500 UnusedSector ┆PROCEDURE BREAK_CHECK R:(LINK/LINK+1); ; ; R0 - DESTROYED IF BREAK ; R1-5 - KEPT ; R6 LINK KEPT ; R7 - STATUS OF OC ; RETURN: ; ┆
0x20500…20580 UnusedSector ┆LINK BREAK DETECTED ; LINK+1 NO BREAK DETECTED ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; SB1350: ;BREAK_CHECK: MOV OCADR R7 ; GE┆
0x20580…20600 UnusedSector ┆T DEVICE ADDRESS; SIO R7 R7 ; SENSE(STATUS, DEVICE); SBZ R7 OCBREAK ; IF FRAMING ERROR SBN R7 OCIRDY ; .AND. INPUT READY JMP┆
0x20600…20680 UnusedSector ┆ 1. X6 ; THEN MOV OCADR R7 ; GET DEVICE ADDRESS RIO R7 R7 ; READ ERRONEOUS CHAR; JMP 0. X6 ; END; NOLIST FI LIST ;FF ;;;;;;;┆
0x20680…20700 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; MEMORY_CHECK UTILITY ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; U┆
0x20700…20780 UnusedSector ┆T1300: ;MEMORY: TEC00: ;TEST_CPU: MOVC B5555 R5 ; MOVL 0. X5 R23 ; MOV P5555 R0 ; MOV PAAAA R1 ; INE R0 R2 ; IF B5555_FIELD┆
0x20780…20800 UnusedSector ┆ NOT CORRECT JMP TEC10 ; .OR. SNE R1 R3 ; BAAAA_FIELD NOT CORRECT JMP TEC90 ; THEN TEC10: ; ; JMPI S6 GETADDRESS ; GET POSI┆
0x20800…20880 UnusedSector ┆<:C:>-<:O:>, JMPI COPYMEMORY IEQ R0 <:D:>-<:O:>, JMPI DUMP IEQ R0 <:F:>-<:O:>, JMPI DOWNLOADLTU IEQ R0 <:I:>-<:O:>, JMPI IO ┆
0x20880…20900 UnusedSector ┆IEQ R0 <:L:>-<:O:>, JMPI LOADFILE IEQ R0 <:M:>-<:O:>, JMPI MEMCHECK IEQ R0 <:O:>-<:O:>, JMPI OPTIONS IEQ R0 <:P:>-<:O:>, JMPI┆
0x20900…20980 UnusedSector ┆ PATCH IEQ R0 <:Q:>-<:O:>, JMPI SWITCHCPU IEQ R0 <:R:>-<:O:>, JMPI RETURNCALLER IEQ R0 <:S:>-<:O:>, JMPI SEARCH IEQ R0 <:T:>┆
0x20980…20a00 UnusedSector ┆-<:O:>, JMPI TESTCPU IEQ R0 <:U:>-<:O:>, JMPI UNITS IEQ R0 <:W:>-<:O:>, JMPI WAITINTERRUPT IEQ R0 <:U:>-<:O:>, JMPI UNITS IE┆
0x20a00…20a80 UnusedSector ┆Q R0 <:X:>-<:O:>, JMPI XECUTE IEQ R0 <:Z:>-<:O:>, JMPI SETPARITY IEQ R0 <:<:>-<:O:>, JMPI UT50SV UT5090: ;ERROR: MOVC <:?:> R┆
0x20a80…20b00 UnusedSector ┆0 ; JMPI S6 OUTCHAR ; JMP UT5010 ; ;FF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; DOWN_LOAD L┆
0x20b00…20b80 UnusedSector ┆TU UTILITY ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; USE BASE ; ;LTU DOWN-LOAD CONTROL BLOCK LOC= 0 ;--------------------------- L┆
0x20b80…20c00 UnusedSector ┆-------; MAI50: JMPI S6 BREAKCHECK ; BREAK_CHECK JMPI & S6 UTILITIES ;*** R:(BREAK OCCURED); ;--------------------------------┆
0x20c00…20c80 UnusedSector ┆---; ; SEARCH NEXT TEST SEQUENCE ; ;-----------------------------------; MOV PGMNEXT R6 ; GET REF(TEST_PGM TABLE INDEX); MAI55:┆
0x20c80…20d00 UnusedSector ┆ ; REPEAT ADDC 2 R6 ; POINT NEXT TEST_RECORD; MOV TCPOOL+TCPPROG.X6 R7 ; GET REF(TEST_PROGRAM); IEQ R7 0 ; IF VALID TEST JMP┆
0x20d00…20d80 UnusedSector ┆ MAI55 ; THEN MOV R6 PGMNEXT ; SAVE REFERENCE; SNE R7 #8000 ; IF STILL TEST PROGRAMS LEFT JMP MAI80 ; THEN MOV TCPOOL+TCPDAT┆
0x20d80…20e00 UnusedSector ┆A.X6 R4 ; GET REF(ASSOCIATED DATA); MOVL CTCBCNT.X4 R01 ; GET NO_WORDS, RESET VALUE; ADD R0 R4 ; ADJUST FOR EXPECTED_AREA; MO┆
0x20e00…20e80 UnusedSector ┆V R4 R5 ; MOV REFWORK R6 ; POINT WORK AREA; IEQ R1 0 ; IF WHOLE AREA EQUAL 'R1' JMP MAI65 ; THEN MAI60: ; REPEAT MOV R1 X6 ;┆
0x20e80…20f00 UnusedSector ┆ INITIALIZE AREA; ADDC 1 R6 ; ADJUST POINTER; SOB R0 MAI60 ; UNTIL AREA COVERED; JMP MAI70 ; ELSE MAI65: ; REPEAT MOV CTCBDA┆
0x20f00…20f80 UnusedSector ┆TA.X4 R2 ; GET NEXT WORD MOV R2 X6 ; COPIED; ADDC 1 R4, ADDC 1 R6 ; ADJUST POINTERS; SOB R0 MAI65 ; END COPYING AREA; MAI70: ┆
0x20f80…21000 UnusedSector ┆; ADDC CTCBDATA R5 ; ADJUST POINTER TO INPUT; MOVL 0. X5 R01 ; MOVL 2. X5 R23 ; MOV 4. X5 R4 ; MOV REFWORK R6 ; POINT WORK ┆
0x21000…21080 UnusedSector ┆AREA; JMP X7 ; EXECUTE TEST PROGRAM; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; EXECUTE TEST SEQUENCE ; ;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x21080…21100 UnusedSector ┆;;;;;;;;;;; ;TEST_PROGRAM_ENTRY: ; R0-4:FIRST 5 WORK_WORDS ; R5 - REF(WORK_AREA) ; R6 - REF(OUTPUT_AREA) ;;;;;;;;;;;;;;;;;;┆
0x21100…21180 UnusedSector ┆;;;;;;;;;;;;;;;;;;; ; MAINTAIN LONG_INTEGER ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAI80: ; END TABLE_SCAN; MOVC 0 R6 ; RE-ADJ┆
0x21180…21200 UnusedSector ┆ACTIVATE BOOT FILE; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; LOAD_UTILITIES ;;;;;;;;;;;;;;;┆
0x21200…21280 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;; UT3100: ;LOAD_FILE: JMPI S4 OUTSTRING, <:OAD :>, EOT JMPI S6 INCHAR ; GET DEVICE IDENTIFICATION MOV R0┆
0x21280…21300 UnusedSector ┆ R2 ; JMPI S4 OUTSTRING, <:D: :>, EOT JMPI S6 INCHAR ; GET FD DRIVE_NO; JMPI S6 FDBLOAD ; LOAD_FILE FROM FD; JMP & UT5010 ;*┆
0x21300…21380 UnusedSector ┆** FAILED: RETURN_MAIN_LINE; JMP UT5010 ; RETURN UTILITIES_MAIN_LINE; ;FF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x21380…21400 UnusedSector ┆;;;;;;;;;;;;;;;;;;;; UT5000: ;UTILITIES: MOV R6 UT50SV ; SAVE RETURN ADDRESS; UT5010: ; JMPI S6 OUTNL ; UT5020: ; MOVC LOCALA┆
0x21400…21480 UnusedSector ┆CT R0 ; MOV R0 XLOCACT ; RE-ESTABLISH TO COMMON LOCAL ; MOVC <:<62>:> R0 ; JMPI S6 OUTCHAR ; WRITE '>' JMPI S6 INCHAR ADDC┆
0x21480…21500 UnusedSector ┆ -<:O:> R0 ; JMP S6 UT5050 ; ESTABLISH LINK JMP UT5010 ; UT5050: ; ; CASE CHAR OF IEQ R0 <:B:>-<:O:>, JMPI BOOTLOAD IEQ R0 ┆
0x21500…21580 UnusedSector ┆0 0127 007F 0098 0149 0357 F818L 0339 01CA 0179 038B 01E0 0349 00A9 0314 F820L 0196 02A1 05EC 01AC 0519 02C9 023C 01C5 F828L 038┆
0x21580…21600 UnusedSector ┆8 03B3 0439 0486 04C1 04D8 0000 0000 F830L 20BE 1068 012A 114F F2EF 0D4F 7B11 02D8 F838L A07C 16D8 0D6F 7FA3 E7BC 15FD 4C0D 434F┆
0x21600…21680 UnusedSector ┆ F840L 4C41 4920 544E 5245 5552 5450 202C 4143 F848L 5355 3D45 00FF 13FF 17FF 10FF 1068 208A F850L 084C 0230 0B70 4CBC 20BE 0814┆
0x21680…21700 UnusedSector ┆ 202C 0868 F858L E056 004F E7BC 081E 068B 4EE9 4EE9 20AE F860L 6548 8A30 8B80 881F 07BC 15FD 450D 454D F868L 4752 4E45 5943 4120┆
0x21700…21780 UnusedSector ┆ 5443 4F49 204E 5942 F870L 0020 00FF 0E6A 13FF 17FF 0258 049F 0348 F878L 8F96 0F96 0AF0 0658 0F97 07EC 01D8 0D48 F880L 049F 7F96┆
0x21780…21800 UnusedSector ┆ 7DB2 7AF2 D3DA 7BF0 0758 049F F888L 8F97 0FBB 78EC FD7E 80BF 1976 03A8 105F F890L 0AA8 125F 135F 145F 155F 165F 0DC8 19E7 F898L┆
0x21800…21880 UnusedSector ┆ 0020 FFE4 807C 01BF 12FF 60BC 12FF 01CC F8A0L 0958 049F 7F96 7DF2 7AF0 81BF 049F 7F97 F8A8L 80BF 0198 2070 0298 2170 0FFF 8D7C ┆
0x21880…21900 UnusedSector ┆05D8 F8B0L 10FF 2072 8D7E 10FF 2172 3EBB D748 0F70 F8B8L 2068 2169 0A6A 0814 C9CA D7BC E4BC 52F7 F8C0L 09D8 4062 40D0 0856 0048 ┆
0x21900…21980 UnusedSector ┆01C0 4060 40D2 F8C8L 08D8 80F0 4062 40D0 0856 0048 01C0 4060 F8D0L 40D2 E7BC 206A 216B 02B8 13F8 2FD8 E7BC F8D8L 156A 217E 2BD8 ┆
0x21980…21a00 UnusedSector ┆20BE 114A 217D 17D8 A23F F8E0L A37F B258 0128 0AEE 827E 09D8 15FD 4150 F8E8L 4952 5954 4520 5252 524F 00FF 0DD8 15FD F8F0L 4954 ┆
0x21a00…21a80 UnusedSector ┆454D 4F2D 5455 00FF 06D8 15FD 494D F8F8L 4D53 5441 4843 00FF 15FD 4120 2054 00FF F900L 086A 528A 13FF 14FF 004F A9BE 02CD 01AE F┆
0x21a80…21b00 UnusedSector ┆908L E07E 52C6 4EDA 1A76 0049 004A 11FF 7FE4 F910L 807E 03D8 2A48 12FF 0958 0EBB 3AAE E746 F918L 0AD8 03CE EA42 07CE 10E4 E044 0┆
0x21b00…21b80 UnusedSector ┆4D8 A4A0 F920L 628A 0129 1558 8D3E 117E 1858 1AE7 1B76 F928L 0449 A4A2 28BB 04EC 8A40 07C8 30C8 12FF F930L 08C1 2048 12FF 1BE7 1┆
0x21b80…21c00 UnusedSector ┆C76 11FF 30A8 8446 F938L 70BD 089C 10FF 2DBB 0814 00CD 004A 2EE4 F940L 807C 10FF 258A 014A 2BE4 807C 10FF 2BBB F948L 1CE7 1D76 1┆
0x21c00…21c80 UnusedSector ┆E76 0ADD E7BC 1169 927E 03D8 F950L 1E71 E6BC 0FD8 937C 10D8 2659 0F74 044A F958L 72BD 079E 804B D7BC 3DBB D9A0 0256 004C F960L E┆
0x21c80…21d00 UnusedSector ┆6BC 58FB 8DBB 01CD 04C4 0AC3 E7BC 10C2 F968L 3048 0F70 1E68 827E 1DE7 15FD 202C 454D F970L 204D 4150 4952 5954 4520 5252 524F 00┆
0x21d00…21d80 UnusedSector ┆FF F978L 1DE7 0FFF 538A 8D7C 04D8 10FF 2BBB 0814 F980L 01CB D424 D4A0 538B 58BB 03EC 883C 2048 F988L 12FF 84F0 14FF 086A 528A 13┆
0x21d80…21e00 UnusedSector ┆FF D7BC E4BC F990L 5AFB E7BC 13FF 01CD 11C3 C2D9 0FFF B17C F998L 10D8 10FF D7BC E4BC 117C ADBB E7BC 01CD F9A0L 07C3 09D8 10FF D7┆
0x21e00…21e80 UnusedSector ┆BC E4BC 117C ADBB E7BC F9A8L 01CD 8D7E 0958 ADD9 0FFF 10FF D7BC E4BC F9B0L D2BA E7BC 0FD8 E7BC 20BE 15FD 414D 4354 F9B8L 2048 54┆
0x21e80…21f00 UnusedSector ┆41 0020 00FF 086A 528A 13FF 14FF F9C0L 004F A9BE 01CD 16C3 94D9 0FFF 0894 00CD F9C8L E4BC 45BC 0FFF 10FF 0814 00CA 2FE4 807C F9D┆
0x21f00…21f80 UnusedSector ┆0L 11FF 30A8 01DF 84D9 8446 70BD 0898 D7BC F9D8L E4BC 59FB E0BC 9ABB 528E 06C3 E7BC 80BF F9E0L 004B 2173 1773 15FD 3A4F 00FF 11F┆
0x21f80…22000 UnusedSector ┆F 4FA8 F9E8L 2070 0FFF 29E4 807E 04D8 0894 00CD 2175 F9F0L 0FFF 0894 00CD 5FE4 807E 05D8 10FF A07C F9F8L 01AB 1773 2BBB 206C C47┆
0x22000…22080 UnusedSector ┆C 0CD8 C37C 0ED8 FA00L 10FF 4C7C 0FD8 447C 10D8 C87C 12D8 C77C FA08L 14D8 28FC 16DF 77BD 2D96 1AD8 12DF 77BD FA10L 2D97 16D8 77B┆
0x22080…22100 UnusedSector ┆D AD96 1ED8 0BDF 77BD AD96 FA18L 19D8 07DF 77BD AD97 16D8 03DF 77BD AD97 FA20L 11D8 004C 216F F07C 01CE 2076 216F 20E7 FA28L 156┆
0x22100…22180 UnusedSector ┆F 717E 08D8 13FF 01CC 48BB 03EC 807C FA30L 14FF 01D8 10FF 0EC3 0DFF 05D8 176E 01AE FA38L 613E 1776 1558 1CD9 10FF 26EC 086D 21BE┆
0x22180…22200 UnusedSector ┆. Z0F800 T0000 P F800L 01A4 5555 AAAA 0552 0001 0002 0007 0000 F808L E000 E004 E008 E00C 01F4 00A1 01D4 0134 F810L 010B 0076 008┆
0x22200…22280 UnusedSector ┆D 202C 4E45 5254 0059 00FF FC18L 07D8 15FD 202C 4843 4345 534B 4D55 00FF FC20L 15FD 4520 5252 524F 00FF 12D8 15FD 202C FC28L 4D4┆
0x22280…22300 UnusedSector ┆4 0041 00FF 05D8 15FD 202C 4944 4B53 FC30L 00FF 15FD 4520 5252 524F 003D 00FF 13FF FC38L 25E7 2876 5EBB 4319 907C 2C5F 0A4A 31F6┆
0x22300…22380 UnusedSector ┆ FC40L 04D8 138B 01CE 05C2 335F 4119 8418 017C FC48L 375F BDF2 0ABB 28EC 60BC 128A 02C3 1BE4 FC50L A042 03D8 01C8 1AAA 0658 88A0┆
0x22380…22400 UnusedSector ┆ 208D 0ABB FC58L A724 2BBB 238A 238A 1AE4 B000 1AAB 0458 FC60L A124 276E 26F8 06D8 2772 2BFF 276A 2056 FC68L 00CA 2DFF 2BFF 0ABB┆
0x22400…22480 UnusedSector ┆ 28EC 328A 228A 35E4 FC70L A040 34AA 1BE4 A040 1BAA 1056 00CA 2DFF FC78L 296C C03E 2CFF 0040 2976 01A9 9142 28E7 FC80L E6C8 07B2┆
0x22480…22500 UnusedSector ┆ FA40L 13D8 D6BE 049F 0F96 0AF2 0DF0 0658 D7BE FA48L 15FD 494D 5353 4E49 2047 4E49 4554 5252 FA50L 5055 0D54 00FF 45BC 113C 1CE5┆
0x22500…22580 UnusedSector ┆ 0814 0894 FA58L 0048 F5BC 0156 804C 548A 404F 8CBB 01CC FA60L 03C7 0156 804B BDBB 4183 4283 4383 40CB FA68L 4483 7CE9 7CE9 20AC┆
0x22580…22600 UnusedSector ┆ 0883 0983 0814 0156 FA70L 804D 0869 9DBB 0495 9DBB 72BD 9DBB 21BE FA78L 43BC 049F 0F96 0DB2 0F97 DBD8 126A 217C FA80L 28FC 1568┆
0x22600…22680 UnusedSector ┆ 017C A07C 1BD8 049F A224 27F8 FA88L 17D8 15FD 4F49 4920 544E 5245 5552 5450 FA90L 202C 4544 3D56 00FF 13FF 15FD 202C 5250 FA98L┆
0x22680…22700 UnusedSector ┆ 4F49 003D 00FF 1268 02EC 30C8 12FF 14FF FAA0L 3358 11FF 30A8 8844 28FC 01DF B1D8 0814 FAA8L 004C 204F 074A 72BD FCBB 2FA3 084B ┆
0x22700…22780 UnusedSector ┆0882 FAB0L 01CC 03C3 08AC 086A 08CA 70BD 0882 21BE FAB8L 02D8 D5BE 0158 748A 3CE9 3CE9 20AC 0887 FAC0L 0987 748B D2BC D5BE 6FBE ┆
0x22780…22800 UnusedSector ┆0C9F 01C7 E2BC FAC8L 80BF 15FD 430D 5550 203A 00FF D5BC 58BB FAD0L 60BC 03EC 2C5F 084B 3148 083A 2E48 12FF FAD8L 01CC 06C3 18DD ┆
0x22800…22880 UnusedSector ┆116E E27C 03D8 E37E B05A FAE0L 2E48 E5BC 3EBB 64EC E73C 2056 00C8 EF3C FAE8L 2F56 00C8 12FF 8824 807E 12FF 01CB 40E4 FAF0L B046 ┆
0x22880…22900 UnusedSector ┆01BF 00BF 0F74 15FD 520D 4D41 203A FAF8L 00FF 004B 01DD 0CD8 3148 3EBB E424 76BD FB00L 089E 3FBB FCA0 0814 00CF E6BC 7EFB 2758 F┆
0x22900…22980 UnusedSector ┆B08L 15FD 490D 3A4F 2020 00FF 004B 01DD 03D8 FB10L 3148 6B96 3258 44D8 14FF 15FD 5250 4E49 FB18L 2D54 554F 2054 3F20 003E 00FF 1┆
0x22980…22a00 UnusedSector ┆1FF 5AA8 FB20L 1570 0048 2F70 14FF 15FD 4F4E 4F20 2046 FB28L 4554 5453 2053 003E 00FF 10FF 2BBB 004A FB30L 8D3E 10FF 32EE 01AB 3┆
0x22a00…22a80 UnusedSector ┆17C 01AA 1772 1673 FB38L 20D8 15FD 4F4F 2054 00FF 11FF 0ABB 15FD FB40L 3A44 0020 00FF 11FF 29FF 12D8 14FF E2BC FB48L 43BC 15FD 4┆
0x22a80…22b00 UnusedSector ┆14F 2044 00FF 11FF 0ABB 15FD FB50L 3A44 0020 00FF 11FF 29FF 02D8 01D8 1F76 FB58L 14FF 3048 0F70 3E48 12FF 11FF 4FA8 01DF FB60L 0┆
0x22b00…22b80 UnusedSector ┆958 0D7C 18FC 0C7C 19FC 0B7C 1AFC 097C FB68L 1BFC 067C 1CFC 037C 1DFC 027C 1EFC 807C FB70L 1FFC 817C 20FC 827C 21FC 837C 22FC 84┆
0x22b80…22c00 UnusedSector ┆7C FB78L 23FC 857C 24FC 867C 25FC 887C 26FC 867C FB80L 25FC 897C 27FC 8B7C 16FC 13A4 807C 1FE7 FB88L 3F48 12FF 3358 10FF 2DBB 08┆
0x22c00…22c80 UnusedSector ┆6B 358B 4061 FB90L AB56 B4C9 55AA 907C A07E 28FC 004A 2EE4 FB98L 807C 10FF 03E4 2DF5 28FC 72BD 441D 358B FBA0L 10FF 2070 117C 01┆
0x22c80…22d00 UnusedSector ┆D8 26EC 2068 8D7E 0858 FBA8L 5058 15FD 202C 544C 2055 5245 4F52 3D52 FBB0L 00FF 13FF 5B58 2576 02EC 2670 4FAA 2472 FBB8L 069F A9┆
0x22d00…22d80 UnusedSector ┆3C 70E5 FF97 16FF 274D 004F 214B FBC0L FDBB 01CD 03C3 2F4D 4016 4116 4316 4416 FBC8L 0894 344C 2C74 2056 004A 2DFF 2AFF 2BFF FBD┆
0x22d80…22e00 UnusedSector ┆0L 2CFF 0014 004E 2976 344D 4E60 ACD0 134B FBD8L 4036 01CD 03C3 6DFA 35D8 344D 2E73 2AFF FBE0L 2E6B 02E4 3DBA 01CB 0758 2BFF 2CF┆
0x22e00…22e80 UnusedSector ┆F 0040 FBE8L 0869 D4BC 4E1E 4F1F 478D 511B B07C 0DD8 FBF0L 0048 E7BC 31BD 8030 01CE E03C 04CF E7BC FBF8L 07C3 E4BC 12E4 0DFA 1CD┆
0x22e80…22f00 UnusedSector ┆8 15FD 202C 5453 FC00L 5241 3D54 00FF 4E1A 13FF 15FD 202C 4142 FC08L 4553 203D 00FF 501A 13FF 4F62 D7BC 728D FC10L 256E 81BF 15F┆
0x22f00…22f80 UnusedSector ┆0L 0348 8F96 0F97 0F96 15FD 430D 5353 332F FDD8L 3539 302F 2032 3720 3139 3031 0031 00FF FDE0L 15FD 430D 5550 0020 00FF D0BC 60B┆
0x22f80…23000 UnusedSector ┆C 03EC FDE8L 30C8 12FF 17FF 0258 0E6F 47BC 0000 0000 FDF0L 0000 0000 0000 0000 0000 0000 0000 0000 FDF8L 0000 0000 0000 0000 000┆
0x23000…23080 UnusedSector ┆0 0000 0000 0000 FE00L 0000 0000 0000 0000 0000 0000 0000 0000 FE08L 0000 0000 0000 0000 0000 0000 0000 0000 FE10L 0000 0000 000┆
0x23080…23100 UnusedSector ┆0 0000 0000 0000 0000 0000 FE18L 0000 0000 0000 0000 0000 0000 0000 0000 FE20L 0000 0000 0000 0000 0000 0000 0000 0000 FE28L 000┆
0x23100…23180 UnusedSector ┆0 0000 0000 0000 0000 0000 0000 0000 FE30L 0000 0000 0000 0000 0000 0000 0000 0000 FE38L 0000 0000 0000 0000 0000 0000 0000 0000┆
0x23180…23200 UnusedSector ┆ FE40L 0000 0000 0000 0000 0000 0000 0000 0000 FE48L 0000 0000 0000 0000 0000 0000 0000 0000 FE50L 0000 0000 0000 0000 0000 0000┆
0x23200…23280 UnusedSector ┆ 0000 0000 FE58L 0000 0000 0000 0000 0000 0000 0000 0000 FE60L 0000 0000 0000 0000 0000 0000 0000 0000 FE68L 0000 0000 0000 0000┆
0x23280…23300 UnusedSector ┆ 0000 0000 0000 0000 FE70L 0000 0000 0000 0000 0000 0000 0000 0000 FE78L 0000 0000 0000 0000 0000 0000 0000 0000 FE80L 0000 0000┆
0x23300…23380 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 FE88L 0000 0000 0000 0000 0000 0000 0000 0000 FE90L 0000 0000 0000 0000 0000 0000 0000 0000 FE98L┆
0x23380…23400 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 0000 FEA0L 0000 0000 0000 0000 0000 0000 0000 0000 FEA8L 0000 0000 0000 0000 0000 0000 0000 ┆
0x23400…23480 UnusedSector ┆0000 FEB0L 0000 0000 0000 0000 0000 0000 0000 0000 FEB8L 0000 0000 0000 0000 0000 0000 0000 0000 FEC0L 0000 0000 0000 0000 0000 ┆
0x23480…23500 UnusedSector ┆ E5A8 1A58 01C8 2F58 2A76 3C4C FC88L 01C4 246F F97C 0DD8 059F 8056 2F96 26F2 FC90L 0458 FF56 004A 404C 2FD7 01CA 03C4 2F96 FC98L┆
0x23500…23580 UnusedSector ┆ 18D8 51DF 0002 8002 0002 0000 0302 0001 FCA0L 46F3 0958 48DF 0080 0002 0006 FF00 0302 FCA8L 0001 41DF 0002 0002 0002 0002 0302 ┆
0x23580…23600 UnusedSector ┆0001 FCB0L 026A 20F2 01AA A07C 2AE7 27F0 8B58 4056 FCB8L 004A 2DFF 2776 2B4E 8016 64F1 6858 012A FCC0L 9558 20BE D2BC 086C FF56 ┆
0x23600…23680 UnusedSector ┆004D 2D6B 238D FCC8L 2C6F 8021 58FB E3BC 34BD 8FBB E2BC 578E FCD0L F07C 04CB 09C1 2C77 2D73 004F A8BE 81BF FCD8L 266F 67BC 728A ┆
0x23680…23700 UnusedSector ┆246F F97C 03D8 059F AF96 FCE0L 80BF 2A76 0272 07DF 0002 0002 0002 0002 FCE8L 0302 0000 2AE7 069F 004A 30E5 AF97 004A FCF0L 004A ┆
0x23700…23780 UnusedSector ┆2F97 23F0 0958 8022 80E5 AF97 8122 FCF8L 90E5 AF97 8222 A0E5 AF97 8522 30E5 AF97 FD00L 8022 00E4 AF97 8322 0894 00CA 10E5 AF97 F┆
0x23780…23800 UnusedSector ┆D08L 8422 20E5 AF97 50E5 AF97 2F97 0356 C04F FD10L 278C F07E ED58 069F 25F2 0958 60E5 AF97 FD18L 86BF 274D 4062 0198 0299 02FA 0┆
0x23800…23880 UnusedSector ┆2D8 13F8 FD20L 30D8 0FFF 1056 004B 0048 186A 086F 728B FD28L 0EFF 086B 1869 318B 186A 0A6F 728B 1FBB FD30L 78FB 15E5 887E 28FC 0┆
0x23880…23900 UnusedSector ┆1DD 15FD 0020 8FBB FD38L 2EBB 00DE 80BF 148A 1FBB 304E 0060 BEE4 FD40L 807C 008B 807C 03D8 8056 807E 208A 718A FD48L 80D0 02CC 0┆
0x23900…23980 UnusedSector ┆2CE 0FF0 0F58 004F 1677 1777 FD50L 2F77 14FF 1568 2F6E B01C 017C C07C 30D8 FD58L B11C 034D 458A 246F 011B DFF8 26D8 2577 FD60L 2┆
0x23980…23a00 UnusedSector ┆674 15FD 4554 5453 0020 00FF 266C 4AFB FD68L 13FF 15FD 5720 524F 2044 00FF 266C 011A FD70L 328B 13FF 15FD 5420 204F 4542 0020 00┆
0x23a00…23a80 UnusedSector ┆FF FD78L 5AFB 13FF 15FD 202D 4157 2053 00FF 256F FD80L 7AFB 13FF 14FF 266C 256F 01CD 01CF 2BC3 FD88L 0DFF 17FF 2F6E 02CE B01F F0┆
0x23a80…23b00 UnusedSector ┆7C 0458 2F76 FD90L 8056 F07C 16D8 B11C 0160 048A 4DBB 246E FD98L 907C 04D8 9EBB 01CE 03C0 05D8 031A AEBB FDA0L 01CC 01CE 05C0 03┆
0x23b00…23b80 UnusedSector ┆CD 4060 4262 441C 246E FDA8L C0BF 004E 2F76 164E 8060 01A8 017C 01A9 FDB0L 013C 117C 02D8 80D0 03FC 2A48 2C4B 12FF FDB8L 02C3 62┆
0x23b80…23c00 UnusedSector ┆5A 2CBE 004E 0076 644E 01C6 6051 FDC0L 03D8 0C9E 01C6 05D8 0871 0971 43BC D5BE FDC8L 0158 0D4F 4060 80D0 02CD 02CE 05C7 049F FDD┆
0x23c00…23c80 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 FE88L 0000 0000 0000 0000 0000 0000 0000 0000 FE90L 0000 0000 0000 0000 0000 0000 0000 0000 FE98L┆
0x23c80…23d00 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 0000 FEA0L 0000 0000 0000 0000 0000 0000 0000 0000 FEA8L 0000 0000 0000 0000 0000 0000 0000 ┆
0x23d00…23d80 UnusedSector ┆0000 FEB0L 0000 0000 0000 0000 0000 0000 0000 0000 FEB8L 0000 0000 0000 0000 0000 0000 0000 0000 FEC0L 0000 0000 0000 0000 0000 ┆
0x23d80…23e00 UnusedSector ┆0000 0000 0000 FEC8L 0000 0000 0000 0000 0000 0000 0000 0000 FED0L 0000 0000 0000 0000 0000 0000 0000 0000 FED8L 0000 0000 0000 ┆
0x23e00…23e80 UnusedSector ┆0000 0000 0000 0000 0000 FEE0L 0000 0000 0000 0000 0000 0000 0000 0000 FEE8L 0000 0000 0000 0000 0000 0000 0000 0000 FEF0L 0000 ┆
0x23e80…23f00 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 FEF8L 0000 0000 0000 0000 0000 0000 0000 0000 FF00L 0000 0000 0000 0000 0000 0000 0000 0000 F┆
0x23f00…23f80 UnusedSector ┆F08L 0000 0000 0000 0000 0000 0000 0000 0000 FF10L 0000 0000 0000 0000 0000 0000 0000 0000 FF18L 0000 0000 0000 0000 0000 0000 0┆
0x23f80…24000 UnusedSector ┆000 0000 FF20L 0000 0000 0000 0000 0000 0000 0000 0000 FF28L 0000 0000 0000 0000 0000 0000 0000 0000 FF30L 0000 0000 0000 0000 0┆
0x24000…24080 UnusedSector ┆000 0000 0000 0000 FF38L 0000 0000 0000 0000 0000 0000 0000 0000 FF40L 0000 0000 0000 0000 0000 0000 0000 0000 FF48L 0000 0000 0┆
0x24080…24100 UnusedSector ┆000 0000 0000 0000 0000 0000 FF50L 0000 0000 0000 0000 0000 0000 0000 0000 FF58L 0000 0000 0000 0000 0000 0000 0000 0000 FF60L 0┆
0x24100…24180 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 0000 FF68L 0000 0000 0000 0000 0000 0000 0000 0000 FF70L 0000 0000 0000 0000 0000 0000 0000 00┆
0x24180…24200 UnusedSector ┆00 FF78L 0000 0000 0000 0000 0000 0000 0000 0000 FF80L 0000 0000 0000 0000 0000 0000 0000 0000 FF88L 0000 0000 0000 0000 0000 00┆
0x24200…24280 UnusedSector ┆00 0000 0000 FF90L 0000 0000 0000 0000 0000 0000 0000 0000 FF98L 0000 0000 0000 0000 0000 0000 0000 0000 FFA0L 0000 0000 0000 00┆
0x24280…24300 UnusedSector ┆00 0000 0000 0000 0000 FFA8L 0000 0000 0000 0000 0000 0000 0000 0000 FFB0L 0000 0000 0000 0000 0000 0000 0000 0000 FFB8L 0000 00┆
0x24300…24380 UnusedSector ┆00 0000 0000 0000 0000 0000 0000 FFC0L 0000 0000 0000 0000 0000 0000 0000 0000 FFC8L 0000 0000 0000 0000 0000 0000 0000 0000 FFD┆
0x24380…24400 UnusedSector ┆0L 0000 0000 0000 0000 0000 0000 0000 0000 FFD8L 0000 0000 0000 0000 0000 0000 0000 0000 FFE0L 0000 0020 0000 0200 0000 FDE0 000┆
0x24400…24480 UnusedSector ┆0 0000 FFE8L 0200 0200 F800 FCCE 0000 E000 FFE0 002B FFF0L 0000 FFFF 0000 FFFF 0000 FFFF 0000 0000 FFF8L 1000 0000 0000 0000 000┆
0x24480…24500 UnusedSector ┆0000 0000 0000 FEC8L 0000 0000 0000 0000 0000 0000 0000 0000 FED0L 0000 0000 0000 0000 0000 0000 0000 0000 FED8L 0000 0000 0000 ┆
0x24500…24580 UnusedSector ┆0000 0000 0000 0000 0000 FEE0L 0000 0000 0000 0000 0000 0000 0000 0000 FEE8L 0000 0000 0000 0000 0000 0000 0000 0000 FEF0L 0000 ┆
0x24580…24600 UnusedSector ┆; 00002237 1 07E0 LEVEL 2 NAMES: BIT2= #0002 BIT3= #0003 BIT4= #0004 BIT5= #0005 BIT6= #0006 BIT7= #0007 BIT8= #0008 BIT┆
0x24600…24680 UnusedSector ┆9= #0009 BIT10= #000A BIT11= #000B BIT12= #000C BIT13= #000D BIT14= #000E BIT15= #000F EOT= #00FF BIT0= #0000 BIT1= #00┆
0x24680…24700 UnusedSector ┆01 USE BASE BAAAA:= #0028 CP20IS:= #0029 XBASE:= #0008 B5555:= #0027 CP46P:= #002D CPUMON:= #0040 CP06:= #0029 CPWORK:= ┆
0x24700…24780 UnusedSector ┆#0029 CP46:= #002E TCBASE:= #0018 XPROG:= #000A TCREFK:= #0024 USE PROG PAAAA:= #0002 MAINLE:= #0003 P5555:= #0001 USE #1┆
0x24780…24800 UnusedSector ┆ USE BASE BAAAA:= #0028 CP20IS:= #0029 XBASE:= #0008 B5555:= #0027 CP46P:= #002D CPUMON:= #0040 CP06:= #0029 CPWORK:= ┆
0x24800…24880 UnusedSector ┆ 0000 0000 FE58L 0000 0000 0000 0000 0000 0000 0000 0000 FE60L 0000 0000 0000 0000 0000 0000 0000 0000 FE68L 0000 0000 0000 0000┆
0x24880…24900 UnusedSector ┆ 0000 0000 0000 0000 FE70L 0000 0000 0000 0000 0000 0000 0000 0000 FE78L 0000 0000 0000 0000 0000 0000 0000 0000 FE80L 0000 0000┆
0x24900…24980 UnusedSector ┆ ┆
0x24980…24a00 UnusedSector ┆ IN 2 1 2 - ┆
0x24a00…24a80 UnusedSector ┆ ┆
0x24a80…24b00 UnusedSector ┆ IN 2 1 2 - ┆
0x24b00…24b80 UnusedSector ┆ ┆
0x24b80…24c00 UnusedSector ┆ IN 2 1 2 - ┆
0x24c00…24c80 UnusedSector ┆ ┆
0x24c80…24d00 UnusedSector ┆ IN 2 1 2 - ┆
0x24d00…24d80 UnusedSector ┆ ┆
0x24d80…24e00 UnusedSector ┆ IN 2 1 2 - ┆
0x24e00…24e80 UnusedSector ┆ ┆
0x24e80…24f00 UnusedSector ┆ IN 2 1 2 - ┆
0x24f00…24f80 UnusedSector ┆ ┆
0x24f80…25000 UnusedSector ┆ IN 2 1 2 - ┆
0x25000…25080 UnusedSector ┆ ┆
0x25080…25100 UnusedSector ┆ IN 2 1 2 - ┆
0x25100…25180 UnusedSector ┆ ┆
0x25180…25200 UnusedSector ┆ IN 2 1 2 - ┆
0x25200…25280 UnusedSector ┆ ┆
0x25280…25300 UnusedSector ┆ IN 2 1 2 - ┆
0x25300…25380 UnusedSector ┆ ┆
0x25380…25400 UnusedSector ┆ IN 2 1 2 - ┆
0x25400…25480 UnusedSector ┆ ┆
0x25480…25500 UnusedSector ┆0 0000 F845 0000 S6 0000 0000 0000 0000 FFD8L 0000 0000 0000 0000 0000 0000 0000 0000 FFE0L 0000 0020 0000 0200 0000 FDE0 000┆
0x25500…25580 UnusedSector ┆ ┆
0x25580…25600 UnusedSector ┆ IN 2 1 2 - ┆
0x25600…25680 UnusedSector ┆ ┆
0x25680…25700 UnusedSector ┆ IN 2 1 2 - ┆
0x25700…25780 UnusedSector 0x00[128]
0x25780…25800 UnusedSector ┆ IN 2 1 2 - ┆
0x25800…25880 UnusedSector ┆ ┆
0x25880…25900 UnusedSector ┆ IN 2 1 2 - ┆
0x25900…25980 UnusedSector ┆ ┆
0x25980…25a00 UnusedSector ┆ IN 2 1 2 - ┆
0x25a00…25a80 UnusedSector ┆ ┆
0x25a80…25b00 UnusedSector ┆ IN 2 1 2 - ┆
0x25b00…25b80 UnusedSector ┆ ┆
0x25b80…25c00 UnusedSector ┆ IN 2 1 2 - ┆
0x25c00…25c80 UnusedSector ┆ ┆
0x25c80…25d00 UnusedSector ┆ IN 2 1 2 - ┆
0x25d00…25d80 UnusedSector ┆ ┆
0x25d80…25e00 UnusedSector ┆ IN 2 1 2 - ┆
0x25e00…25e80 UnusedSector ┆ ┆
0x25e80…25f00 UnusedSector ┆ IN 2 1 2 - ┆
0x25f00…25f80 UnusedSector ┆ ┆
0x25f80…26000 UnusedSector ┆ IN 2 1 2 - ┆
0x26000…26080 UnusedSector ┆ ┆
0x26080…26100 UnusedSector ┆ IN 2 1 2 - ┆
0x26100…26180 UnusedSector ┆ ┆
0x26180…26200 UnusedSector ┆ IN 2 1 2 - ┆
0x26200…26280 UnusedSector ┆ ┆
0x26280…26300 UnusedSector ┆ IN 2 1 2 - ┆
0x26300…26380 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 FEF8L 0000 0000 0000 0000 0000 0000 0000 0000 FF00L 0000 0000 0000 0000 0000 0000 0000 0000 F┆
0x26380…26400 UnusedSector ┆F08L 0000 0000 0000 0000 0000 0000 0000 0000 FF10L 0000 0000 0000 0000 0000 0000 0000 0000 FF18L 0000 0000 0000 0000 0000 0000 0┆
0x26400…26480 UnusedSector ┆000 0000 FF20L 0000 0000 0000 0000 0000 0000 0000 0000 FF28L 0000 0000 0000 0000 0000 0000 0000 0000 FF30L 0000 0000 0000 0000 0┆
0x26480…26500 UnusedSector ┆000 0000 0000 0000 FF38L 0000 0000 0000 0000 0000 0000 0000 0000 FF40L 0000 0000 0000 0000 0000 0000 0000 0000 FF48L 0000 0000 0┆
0x26500…26580 UnusedSector ┆000 0000 0000 0000 0000 0000 FF50L 0000 0000 0000 0000 0000 0000 0000 0000 FF58L 0000 0000 0000 0000 0000 0000 0000 0000 FF60L 0┆
0x26580…26600 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 0000 FF68L 0000 0000 0000 0000 0000 0000 0000 0000 FF70L 0000 0000 0000 0000 0000 0000 0000 00┆
0x26600…26680 UnusedSector ┆00 FF78L 0000 0000 0000 0000 0000 0000 0000 0000 FF80L 0000 0000 0000 0000 0000 0000 0000 0000 FF88L 0000 0000 0000 0000 0000 00┆
0x26680…26700 UnusedSector ┆00 0000 0000 FF90L 0000 0000 0000 0000 0000 0000 0000 0000 FF98L 0000 0000 0000 0000 0000 0000 0000 0000 FFA0L 0000 0000 0000 00┆
0x26700…26780 UnusedSector ┆00 0000 0000 0000 0000 FFA8L 0000 0000 0000 0000 0000 0000 0000 0000 FFB0L 0000 0000 0000 0000 0000 0000 0000 0000 FFB8L 0000 00┆
0x26780…26800 UnusedSector 0x00[128]
[…0x3…]
0x26980…26a00 UnusedSector ┆ 0 T ┆
0x26a00…26a80 UnusedSector ┆BE Z - WAS o% z l&o% + n/ | X v/ ` Mn$| `@bB Dn$ N v/N ` | < | H*┆
0x26a80…26b00 UnusedSector ┆K, ZC ,N v Nd Q` q q C X O `@ CSS/395/01 791011 CPU ` 0 X o G ┆
0x26b00…26b80 UnusedSector 0x00[128]
[…0x7…]
0x26f00…26f80 UnusedSector ┆ 0 T ┆
0x26f80…27000 UnusedSector ┆ { 0 T ┆
0x27000…27080 UnusedSector ┆ PSW; LDS R4 ; SWITCH TO OTHER PAGE SHS R5 R2 ; IF UPPER PART OF MEMORY JMP UT1335 ; THEN MOVL 0. X5 R23 ; SAVE CONTENT DURI┆
0x27080…27100 UnusedSector ┆NG TEST; MOVL R01 0. X5 ; INSERT TEST PATTERN; MOVC 4096/2 R0 ; REPEAT SOB R0 LOC ; UNTIL 2-4 MSEC ELAPSED; MOVL 0. X5 R01 ;┆
0x27100…27180 UnusedSector ┆ GET PATTERN FROM RAM; MOVL R23 0. X5 ; RE-ESTABLISH CONTENT; JMP UT1340 ; ELSE UT1330: NOP ; UT1335: MOVL 0. X5 R23 ; SAVE CO┆
0x27180…27200 UnusedSector ┆NTENT DURING TEST; MOVL R01 0. X5 ; INSERT TEST PATTERN; MOVC 4096/2 R0 ; REPEAT SOB R0 LOC ; UNTIL 2-4 MSEC ELAPSED; MOVL 0┆
0x27200…27280 UnusedSector ┆. X5 R01 ; GET PATTERN FROM RAM; MOVL R23 0. X5 ; RE-ESTABLISH CONTENT; UT1340: ; END PERFORMING TEST; LDS R7 ; RETURN OWN PAG┆
0x27280…27300 UnusedSector ┆E; MOV UT13PATTERN R2 ; MOV UT13PATTERN+1 R3 ; SNEP R0 R2 ; IF MISMATCH IN 1ST SNE R1 R3 ; .OR. 2ND WORD JMP UT1390 ; UT135┆
0x27300…27380 UnusedSector ┆0: ; .OR. LOCAL_INTERRUPT ; THEN LDS R7 ; RESET LOCAL_INT'PT FLAG; MOV PRINTOUT R2 ; SEQ R2 TRUE ; IF PRINT_OUT JMP UT1390 ┆
0x27380…27400 UnusedSector ┆; THEN SVP ; SAVE REGISTERS DURING PRINT; MOVC XCAUSE R2 ; IEQ X2 -1 ; IF LOCAL INTERRUPT JMP UT1370 ; THEN SEQP X2 2 ; IF ┆
0x27400…27480 UnusedSector ┆PARITY_ERROR SEQ X2 3 ; .OR. TIME-OUT JMP LOCALACT ; THEN MOVC -1 R0 ; XCH R0 X2 ; SEQ R0 2 ; JMP UT1360 ; JMPI S4 OUTSTR┆
0x27480…27500 UnusedSector ┆ING, <:PARITY ERROR:>, EOT JMP UT1380 ; UT1360: ; JMPI S4 OUTSTRING, <:TIME-OUT:>, EOT JMP UT1380 ; UT1370: ; ELSE JMPI S4 O┆
0x27500…27580 UnusedSector ┆UTSTRING, <:MISMATCH:>, EOT UT1380: ; JMPI S4 OUTSTRING, <: AT :>, EOT MOV XBASE R2 ; ADD R5 R2 ; JMPI S6 OUTHEXA ; JMPI S6┆
0x27580…27600 UnusedSector ┆ OUTNL ; MOVC XR0 R7 ; POINT TOP SAVED REG_STACK; UNS 6 ; RE-ESTABLISH REGS CONTENT; UT1390: ; END SERVING MISMATCH; ADDC 2 R┆
0x27600…27680 UnusedSector ┆5 ; ADJUST POINTER NEXT SEQUENCE; ADDC -1 R6 ; INE R6 0 ; SOB R6 UT1320 ; UNTIL WHOLE MEMORY AREA CHECKED; JMP UT5020 ; RETU┆
0x27680…27700 UnusedSector ┆RN UTILITIES_MAIN_LINE; ;FF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; PROCEDURE GET_HEXADECIMAL┆
0x27700…27780 UnusedSector ┆ O:(DELIMITER, BINARY_NUMBER); ; ; R0 - LAST ENTERED CHARACTER (DELIMITER) ; R1 - TRUE IF DATA ENTERED ELSE FALSE ; R2 - ENTERED┆
0x27780…27800 UnusedSector ┆00 0000 0000 0000 0000 0000 0000 FFC0L 0000 0000 0000 0000 0000 0000 0000 0000 FFC8L 0000 0000 0000 0000 0000 0000 0000 0000 FFD┆
0x27800…27880 UnusedSector ┆0L 0000 0000 0000 0000 0000 0000 0000 0000 FFD8L 0000 0000 0000 0000 0000 0000 0000 0000 FFE0L FDEA 0020 0000 0200 0000 FDE0 000┆
0x27880…27900 UnusedSector ┆0 0000 FFE8L 0200 0200 F800 FDBA 7FFF E000 FFE0 0030 FFF0L 0000 FFFF 0000 8000 0000 FFFF 0000 0000 FFF8L 1000 0000 0000 0000 000┆
0x27900…27980 UnusedSector ┆0 0000 F854 0000 S5 0000 0000 0000 0000 FFD8L 0000 0000 0000 0000 0000 0000 0000 0000 FFE0L FDEA 0020 0000 0200 0000 FDE0 000┆
0x27980…27a00 UnusedSector ┆ MULTI_PATCH: ; 00000035 0 0000 ; P <START_ADDRESS>[.<REL_OFFSET>][+<NO_OF_WORDS>] <PATTERN> ; 00000036 0 0000 ; SEARCH: ; 00┆
0x27a00…27a80 UnusedSector ┆000037 0 0000 ; S <START_ADDRESS>[.<REL_OFFSET>][+<NO_OF_WORDS>] <PATTERN> ; 00000038 0 0000 ; TEST_CPU: ; 00000039 0 0000 ; T┆
0x27a80…27b00 UnusedSector ┆ <CPU_PROM_ADDRESS> ; 00000040 0 0000 ; UNIT_MAPPER: ; 00000041 0 0000 ; U ; 00000042 0 0000 ; WAIT_INTERRUPT: ; 00000043 0 ┆
0x27b00…27b80 UnusedSector ┆ START_ADDRESS; SNE R0 CR ; IF PATTERN JMP UT1310 ; THEN JMPI S6 GETHEXA ; GET PATTERN MOV R2 UT13PATTERN INE R0 CR ; IF 2N┆
0x27b80…27c00 UnusedSector ┆D PATTERN_PARAM JMPI S6 GETHEXA ; GET 2ND PATTERN; MOV R2 UT13PATTERN+1 UT1310: ; END GETTING PARAMETERS; MOV R3 R6 ; MOVC U┆
0x27c00…27c80 UnusedSector ┆T1350 R0 ;* MOV R0 XLOCACT ; REPLACE TO LOCAL ACTION PROCESS; UT1320: ; REPEAT MOV UT13PATTERN R0 ; GET TEST PATTERN; MOV UT1┆
0x27c80…27d00 UnusedSector ┆3PATTERN+1 R1 ; MOV XPROG R2 ; GET OWN PROG_ADDRESS; MODN XBASE ADDC UT1330 R2 ;* COMPUTE BASE_REL OFFSET; SVS R7 ; SAVE OWN┆
0x27d00…27d80 UnusedSector ┆0-<:A:>)-<:0:> R6 ; ADJUST AS IF '0'-'9'; IHS R6 16 ; ENSURE '0' <= CHAR <= 'F'; JMP SB1490 ; END GETTING VALID HEXA; SLL R2 ┆
0x27d80…27e00 UnusedSector ┆4 ; INSERT ADD R6 R2 ; NEWLY HEXA; MOVC TRUE R1 ; FLAG HEX CHAR ENTERED; JMP SB1410 ; SB1490: ; UNTIL SEPARATOR MET; INEP R0┆
0x27e00…27e80 UnusedSector ┆ CR ; INE R1 TRUE ; JMP SB1410 ; JMPI SB14SV ; RETURN CALLER; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x27e80…27f00 UnusedSector ┆;;;;;;;;; ; PROCEDURE WRITE_HEXADECIMAL I:(BINARY ); ; ; R0-1,7 - DESTROYED ; R2 BINARY KEPT ; R3-5 - KEPT ; R6 LINK DESTROYED ;┆
0x27f00…27f80 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; SB1500: ;WRITE_HEXA: MOV R6 SB15SV ; ESTABLISH RETURN LINK; MOVC 4 R1 ; FOR I:=1 UNTIL┆
0x27f80…28000 UnusedSector ┆ 4 SB1510: ; DO SLC R2 4 ; POSITION LEFT-MOST 4-BIT; MOV R2 R0 ; XTR R0 4 ; ISOLATE PATTERN; IGE R0 10 ; IF ABOVE 10 ADDC <┆
0x28000…28080 UnusedSector ┆:A:>-<:0:>-10 R0 ; THEN ADJUST; ADDC <:0:> R0 ; MAKE HEXADECIMAL JMPI S6 OUTCHAR ; WRITE_SINGLE_CHAR (CHAR); SOB R1 SB1510 ; ┆
0x28080…28100 UnusedSector ┆END FOR_UNTIL; MOVC <: :> R0 ; FORCE SPACE BETWEEN WORDS; JMPI S6 OUTCHAR ; JMPI SB15SV ; RETURN CALLER; ;FF ;;;;;;;;;;;;;;;┆
0x28100…28180 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; PROCEDURE GET_ADDRESS ; ; R0-2,7 - DESTROYED ; R3 - '+'-FIELD (DEFAUL┆
0x28180…28200 UnusedSector ┆T 1) ; R4 - PSW FOR SPECIFIED PAGE (DEFAULT 0) ; R5 - REF(FIRST_ADDRESS) ; R6 LINK DESTROYED ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x28200…28280 UnusedSector ┆;; ; SB1600: ;GET_ADDRESS: MOV R6 SB16SV ; JMPI S6 INCHAR ; GET PAGE (IF ANY) ADDC 0-<:0:> R0 ; MAKE DECIMAL SHS R0 4 ; IF ┆
0x28280…28300 UnusedSector ┆-1 < PAGE < 4 MOD R0 ; THEN ADJUST FOR PAGE: MOV SB16PAGE R4 ; GET MASKED PSW WITH PAGE BITS; ; JMPI S6 GETHEXA ; GET START ┆
0x28300…28380 UnusedSector ┆ADDRESS; MOV R2 R5 ; SUB XBASE R5 ; COMPENSATE OWN BASE; MOVC 0 R2 ; IEQ R0 <:.:> ; IF OFF_SET DESIRED JMPI S6 GETHEXA ; TH┆
0x28380…28400 UnusedSector ┆EN ADD R2 R5 ; ADJUST START_ADDRESS; MOVC 1 R2 ; PRESET OPTIONAL '+'-FIELD; IEQ R0 <:+:> ; IF '+'-FIELD JMPI S6 GETHEXA ; TH┆
0x28400…28480 UnusedSector ┆EN GET VALUE; MOV R2 R3 ; SET UP LOOP_CONTROL; JMPI SB16SV ; RETURN CALLER ;FF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x28480…28500 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;; ; PROCEDURE SET_PARITY ; ; R0-5,7 - DESTROYED ; R6 LINK DESTROYED ; ; NOTE - OWN BASE HAS TO BE MULTIP┆
0x28500…28580 UnusedSector ┆LA 512. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; SB1700: ;SET_PARITY: MOV R6 SB17SV ; MOV R6 SB17SV+1 ; RESET PARITY ERROR FLA┆
0x28580…28600 UnusedSector ┆G; JMP S4 SB1710 ; BY-PASS LOCAL INTERRUPT ROUTINE; ;-----------------------------------;LOCAL_INTERRUPT: LDS R7 ; RESET BIT_1┆
0x28600…28680 UnusedSector ┆1 (LOCAL INTERRUPT) MOV XCAUSE R1 ; GET INTERRUPTING CAUSE; SEQ R1 2 ; IF PARITY ERROR JMP SB1705 ; THEN MOV R1 SB17SV+1 ; ┆
0x28680…28700 UnusedSector ┆LDS R6 ; JMP SB1750 ; RETURN MAIN LINE FROM INTER'T; SB1705: ; END SERVING PARITY_ERROR; IEQ R1 3 ; IF TIME_OUT JMP SB1760 ; ┆
0x28700…28780 UnusedSector ┆THEN CONTINUE NEXT SECTION; JMP LOCALACT ; CAUSE NEITHER 2/3 ; ;-----------------------------------; SB1710: ; MOV R4 XLOCACT┆
0x28780…28800 UnusedSector ┆ BINARY_NUMBER (DEFAULT 0) ; R3-5 - KEPT ; R6 LINK DESTROYED ; R7 - DESTROYED ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; SB1400: ;┆
0x28800…28880 UnusedSector ┆GET_HEXA: MOV R6 SB14SV ; SAVE LINK; MOVC FALSE R1 ; RISE NO_HEXA_YET FLAG; MOVC 0 R2 ; RESET VALUE; SB1410: ; REPEAT JMPI S┆
0x28880…28900 UnusedSector ┆6 INCHAR ; GET NEXT CHARACTER; SEQ R0 DEL ; IF CHAR = 'DELETE' JMP SB1450 ; THEN MOVC <:*:> R0 ; JMPI S6 OUTCHAR ; FLAG DELE┆
0x28900…28980 UnusedSector ┆TED; JMP SB1400+1 ; ALLOWE RE-ENTERING DATA; SB1450: ; ELSE MOV R0 R6 ; ADDC -(1+<:9:>) R6 ; SHS R6 <:A:>-(1+<:9:>); IF .NOT┆
0x28980…28a00 UnusedSector ┆. '9' < CHAR < 'A' JMP SB1490 ; THEN ADDC (1+<:9:>)+10-<:A:> R6 ; ADJUST AS IF 'A'-'F'; ILT R6 10 ; IF CHAR < <:A:> ADDC -(1┆
0x28a00…28a80 UnusedSector ┆ONTROL_BLOCK LAY-OUT LOC= 0 ; ------------------------------ CTCBID: LOC= LOC+1 ; IDENTIFICATION OF TEST CTCBCNT:LOC= LOC+1 ; N┆
0x28a80…28b00 UnusedSector ┆ ; SET-UP OWN LOCAL_ACTION; ; MOVC 4 R2 ; FOR I:=0 UNTIL PAGE 3 SB1720: ; DO MOD R2 MOV SB16PAGE-1 R6 ; GET CURRENT PSW; MO┆
0x28b00…28b80 UnusedSector ┆VC 128 R3 ; FOR I:=1 UNTIL 128 BLOCKS SVS R7 ; DO SB1730: MOV R3 R5 ; SLL R5 9 ; ESTABLISH CORRECT START; MOVC 512 R4 ; FOR I┆
0x28b80…28c00 UnusedSector ┆:=1 UNTIL 512 WORDS LDS R6 ; DO SB1740: MOV 0. X5 R0 ; RE-ESTABLISH SB1750: MOV R0 0. X5 ; PARITY; ADDC 1 R5 ; ADJUST POINTER;┆
0x28c00…28c80 UnusedSector ┆ SOB R4 SB1740 ; UNTIL ALL 1024 WORDS DONE; SB1760: SOB R3 SB1730 ; UNTIL ALL 64 MODULES DONE; LDS R7 ; RETURN "OWN" PAGE; SO┆
0x28c80…28d00 UnusedSector ┆B R2 SB1720 ; UNTIL ALL PAGES DONE; MOVC LOCALACT R0 ; MOV R0 XLOCACT ; RE-ESTABLISH; MOV SB17SV+1 R0 ; SEQ R0 2 ; IF PARITY┆
0x28d00…28d80 UnusedSector ┆ ERROR JMPI SB17SV ; THEN JMPI S4 OUTSTRING, <:, MEM PARITY ERROR:>, EOT; JMPI SB17SV ; RETURN CALLER; ; ;FF $UTILITIES NOL┆
0x28d80…28e00 UnusedSector ┆IST IF FDSUPPORT THEN LIST $FDLOAD NOLIST FI LIST ;FF ; I N I T I A L I Z E C P U T E S T P R O G R A M ;;;;;;;;;;;;;;;;;;;;;;;┆
0x28e00…28e80 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Q;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; TEC00: ;TEST_CPU: MOVC B5555 R5 ; MO┆
0x28e80…28f00 UnusedSector ┆VL 0. X5 R23 ; MOV P5555 R0 ; MOV PAAAA R1 ; INE R0 R2 ; IF B5555_FIELD NOT CORRECT JMP TEC10 ; .OR. SNE R1 R3 ; BAAAA_FIEL┆
0x28f00…28f80 UnusedSector ┆D NOT CORRECT JMP TEC90 ; THEN TEC10: ; ; JMPI S6 GETADDRESS ; GET POSITION OF (PROMMED) ; CPU_TEST SEQUENCES; MOVC #1000 R┆
0x28f80…29000 UnusedSector ┆3 ; SET-UP COUNT (4K PROM); MOVC 0 R0 ; OBJECT_SECTION 0; MOV TCBASE R2 ; GET "BASE" CPU_TEST PROGRAMS; MOV XBASE R7 ; SUB R┆
0x29000…29080 UnusedSector ┆7 R2 ; MAKE REL "OWN" BASE; JMPI S6 COPY ; COPY CPU_TEST PROGRAMS ; TO MEMORY #1000 UPWARDS; MOV XBASE R3 ; MOV TCBASE R1 ; ┆
0x29080…29100 UnusedSector ┆GET START OF CPU_TEST_PROGRAMS; SUB R3 R1 ; SET-UP CPU-TEST-"OWN=_BASE; MOV TCBASE R2 ; MOV XPROG R7 ; SUB R7 R2 ; SET-UP CP┆
0x29100…29180 UnusedSector ┆U_TEST-"OWN"_PROG; MOV R1 R7 ; MOV 0. X7 R0 ; GET FIRST STATEMENT; INE R0 #0158 ; IF NOT 'JMP LOC' JMPI ERROR ; THEN ERRORON┆
0x29180…29200 UnusedSector ┆EOUS MODULE; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; RAM RESIDENT VERSION ACCEPTED ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; JMP ┆
0x29200…29280 UnusedSector ┆S4 LOC+2 ; BY-PASS INSTRUCTION; JMPI S4 OUTSTRING MVP 0. X4 R0 ; GET INSTRUCTION MOV R0 0. X7 ; INSERTED AS FIRST OF AREA; M┆
0x29280…29300 UnusedSector ┆OV R2 R6 ; JMP S5 LOC+1 ; ESTABLISH LINK BACK; JMP X6 ; ACTIVATE RAM_RESIDING PART; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;RE┆
0x29300…29380 UnusedSector ┆TURN_FROM_CUP_TEST: ; R0,4,6,7 DESTROYED ; R4 REF CPU_TEST PROGRAM_TABLE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; SET-UP CPU_TE┆
0x29380…29400 UnusedSector ┆ST CONTROL ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ADD R1 R4 ; ADJUST REF(CPU_TEST_PGMS); MOV R1 R7 ; MOVC TCPOOL R6 ; TEC20:┆
0x29400…29480 UnusedSector ┆ ; REPEAT MOVL 0. X4 R01 ; IEQ R0 #BE ; IF TEST UNDEFINED (TRAP) SUB R0 R0 ; THEN FORCE DUMMY TEST; IEQ R0 0 ; IF DUMMY TEST┆
0x29480…29500 UnusedSector ┆ JMP TEC30 ; THEN INE R0 #8000 ; IF NOT END_OF_TEST_FILE ADD R2 R0 ; ADJUST TO REL "ACTUAL" PROG; TEC30: ; END ADJUSTING PROG┆
0x29500…29580 UnusedSector ┆_REL; ADD R7 R1 ; ADJUST TO REL "ACTUAL" BASE; MOVL R01 0. X6 ; MAKE ADDC 2 R4 ; REFERENCES ADDC 2 R6 ; RELATIVE; IBZ R0 BI┆
0x29580…29600 UnusedSector ┆T15 ; JMP TEC20 ; UNTIL CPU_TEST AREA INITIALIZED; ; MOVC 0 R7 ; MOV R7 PGMLOOP ; INITIALIZE COUNTERS MOV R7 PGMLOOP+1 ; ┆
0x29600…29680 UnusedSector ┆MOV R7 PGMNEXT ; AND CURRENT TEST PGM POINTER; TEC90: JMPI S6 OUTNL ; ;CONTINUE WITH CPU_TEST MAIN_LINE: ;FF ; C P U T E S T P┆
0x29680…29700 UnusedSector ┆ R O G R A M - M A I N L I N E ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; USE BASE ; ; CPU_TEST_C┆
0x29700…29780 UnusedSector ┆ ADDC -1 R0 ; ADJUST LEAST SIGNIFICANT; IEQ R0 -1 ; IF LEAST_SIGN'T BELOW ADDC -1 R1 ; THEN ADJUST MOST_SIGNIFI'T; SNEP R0 -1┆
0x29780…29800 UnusedSector ┆ ; IEQ R1 -1 ; CPU_LOOP_TEST JMP TESTEND ; ; MOVL R01 0. X6 ; SAVE; JMPI MAINLINE ; END CPU_TEST_LOOP; ; E N D P R O G ┆
0x29800…29880 UnusedSector ┆R A M ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x29880…29900 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;; TESTEND: MOVC <:*:> R0 ; MOVC 44 R3 ; FOR I:=1 UNTIL 44 END10: ; DO JMPI S6 OUTCHAR ; WRITE_CHAR; SO┆
0x29900…29980 UnusedSector ┆B R3 END10 ; END FOR_UNTIL; JMP UT5010 ; RETURN UTILITIES_MAIN_LINE; ;-------------------------------------------------------┆
0x29980…29a00 UnusedSector ┆---------------- ;FF ; M A S T E R C L E A R E N T R Y P O I N T ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x29a00…29a80 UnusedSector ┆TMOST BYTE; ADD R7 R2 ; INSERT DRIVE_NO IN COMMAND; MOV FDMODE R7 ; SNE R7 <:X:>-<:O:>; IF DIRECT FD_LOAD JMP FD3580 ; THEN ┆
0x29a80…29b00 UnusedSector ┆UMBER OF DATA IN TEST RUN CTCBRST:LOC= LOC+1 ; RESET VALUE (IF 0 THEN FIRST AREA COPIED) CTCBDATA:LOC=LOC+1 ; DATA AREA: ; 1ST ┆
0x29b00…29b80 UnusedSector ┆AREA (CNT) WORDS, EXPECTED DATA ; 2ND AREA, INPUT DATA AREA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x29b80…29c00 UnusedSector ┆;;;;; USE PROG ; FOR I:=1 UNTIL TEST_LOOP_COUNT ; DO ; REPEAT UNTIL TABLE SCANNED MAINLOOP: MOV PGMEVALUATE R0 ; GET CHECK/PR┆
0x29c00…29c80 UnusedSector ┆INT-OUT FLAG MOV PGMNEXT R6 ; GET REF(CUR'T TEST_PGM_NDX); MOV TCPOOL+TCPPROG.X6 R4 ; GET REF(CUR'T TEST_PGM_ADR); SNE R0 TRU┆
0x29c80…29d00 UnusedSector ┆E ; IF EVALUATION IEQ R4 0 ; .AND. VALID TEST_PROGRAM JMP MAI50 ; THEN ;-----------------------------------; ; EVALUATE TEST R┆
0x29d00…29d80 UnusedSector ┆ESULTS ; ;-----------------------------------; MOV TCPOOL+TCPDATA.X6 R4 ; GET REF(ASSOCIATED DATA_AREA) MOVC CTCBDATA R5 ; OFF┆
0x29d80…29e00 UnusedSector ┆-SET TO EXPECTED DATA; ADD R4 R5 ; REF (EXPECTED_DATA_AREA); MOV REFWORK R7 ; POINT WORK AREA; MOV CTCBCNT.X4 R3 ; FORI:=1 UN┆
0x29e00…29e80 UnusedSector ┆TIL NO_WORDS MAI10: ; DO IEQ X5 X7 ; IF DISCREPANCY JMP MAI20 ; THEN MOV R7 MAISV ; MOV R4 MAISV+1 ; JMPI S4 OUTSTRING, <:T┆
0x29e80…29f00 UnusedSector ┆EST :>, EOT MOV MAISV+1 R4 ; MOV CTCBID.X4 R2 ; GET TEST IDENTIFICATION JMPI S6 OUTHEXA ; JMPI S4 OUTSTRING, <: WORD :>, EOT┆
0x29f00…29f80 UnusedSector ┆55 ; THEN MOV R6 PGMNEXT ; SAVE REFERENCE; SNE R7 #8000 ; IF STILL TEST PROGRAMS LEFT JMP MAI80 ; THEN MOV TCPOOL+TCPDATA.X6┆
0x29f80…2a000 UnusedSector ┆ R4 ; GET REF(ASSOCIATED DATA); MOVL CTCBCNT.X4 R01 ; GET NO_WORDS, RESET VALUE; ADD R0 R4 ; ADJUST FOR EXPECTED_AREA; MOV R4┆
0x2a000…2a080 UnusedSector ┆ R5 ; MOV REFWORK R6 ; POINT WORK AREA; IEQ R1 0 ; IF WHOLE AREA EQUAL 'R1' JMP MAI65 ; THEN MAI60: ; REPEAT MOV R1 X6 ; INI┆
0x2a080…2a100 UnusedSector ┆TIALIZE AREA; ADDC 1 R6 ; ADJUST POINTER; SOB R0 MAI60 ; UNTIL AREA COVERED; JMP MAI70 ; ELSE MAI65: ; REPEAT MOV CTCBDATA.X┆
0x2a100…2a180 UnusedSector ┆4 R2 ; GET NEXT WORD MOV R2 X6 ; COPIED; ADDC 1 R4, ADDC 1 R6 ; ADJUST POINTERS; SOB R0 MAI65 ; END COPYING AREA; MAI70: ; A┆
0x2a180…2a200 UnusedSector ┆DDC CTCBDATA R5 ; ADJUST POINTER TO INPUT; MOVL 0. X5 R01 ; MOVL 2. X5 R23 ; MOV 4. X5 R4 ; MOV REFWORK R6 ; POINT WORK AREA┆
0x2a200…2a280 UnusedSector ┆; JMP X7 ; EXECUTE TEST PROGRAM; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; EXECUTE TEST SEQUENCE ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x2a280…2a300 UnusedSector ┆;;;;;;; ;TEST_PROGRAM_ENTRY: ; R0-4:FIRST 5 WORK_WORDS ; R5 - REF(WORK_AREA) ; R6 - REF(OUTPUT_AREA) ;;;;;;;;;;;;;;;;;;;;;;┆
0x2a300…2a380 UnusedSector ┆;;;;;;;;;;;;;;; ; MAINTAIN LONG_INTEGER ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAI80: ; END TABLE_SCAN; MOVC 0 R6 ; RE-ADJUST ┆
0x2a380…2a400 UnusedSector ┆TO TOP MOV R6 PGMNEXT ; PROGRAM_INDEX; MOVC PGMLOOP R6 ; REF(TEST_LOOP_COUNT); MOVL 0. X6 R01 ; GET NO_TEST LEFT (LONG INT); ┆
0x2a400…2a480 UnusedSector ┆PUT(CMD, COUNT, DEVICE); MVP 1. X6 R2 ; GET REMOTE_ADR; MODC DMRMAD WIO R2 R7 ; OUTPUT(CMD, REM_ADR, DEVICE); MVP 2. X6 R2 ;┆
0x2a480…2a500 UnusedSector ┆ GET REMOTE_PAGE (MODE); MODC DMRMPG WIO R2 R7 ; OUTPUT(CMD, REM_PAGE, DEVICE); MVP 5. X6 R2 ; GET REQUEST_TYPE; MODC DMSNRQ┆
0x2a500…2a580 UnusedSector ┆ WIO R2 R7 ; OUTPUT(CMD, SEND_REQUEST, DEVICE); MVP 0. X6 R2 ; GET COUNT MODC DMLDBC WIO R2 R7 ; OUTPUT(CMD% COUNT% DEVICE);┆
0x2a580…2a600 UnusedSector ┆ MVP 3. X6 R2 ; GET POINTER TO OUTPUT_AREA; ADD XBASE R2 ; MODC DMLDAD WIO R2 R7 ; OUTPUT(CMD, LOAD_ADDR, DEVICE); MVP 4. X┆
0x2a600…2a680 UnusedSector ┆6 R2 ; GET LOAD_PAGE; MODC DMLDPG WIO R2 R7 ; OUTPUT(CMD, LOAD_PAGE, DEVICE); MODC DMSTART WIO R2 R7 ; OUTPUT(CMD, -, DEVICE┆
0x2a680…2a700 UnusedSector ┆); DMA10: ; REPEAT RIO R2 R7 ; INPUT(STATUS, DEVICE); MOVC DMERRM1 R7 ; SET-UP ERROR MASK; AND R2 R7 ; IF RESULT.>0 THEN INE┆
0x2a700…2a780 UnusedSector ┆ R7 0 ; IF RESULT<>0 THEN JMP DMAERR ;* DMA_ERROR; MOV DMAADR R7 ; IBN R2 DMNTEOB ; UNTIL STATUS.NOT_EOB JMP DMA10 ; GOES LO┆
0x2a780…2a800 UnusedSector ┆W (EOB); MODC DMSTOP WIO R2 R7 ; OUTPUT(CMD, -, DEVICE); JMP 6. X6 ; RETURN CALLER; NOLIST FI LIST ;FF ; I N I T I A L I Z E┆
0x2a800…2a880 UnusedSector ┆ C P U T E S T P R O G R A M ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Q;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x2a880…2a900 UnusedSector ┆;;;;;;;;;; ; TEC00: ;TEST_CPU: MOVC B5555 R5 ; MOVL 0. X5 R23 ; MOV P5555 R0 ; MOV PAAAA R1 ; INE R0 R2 ; IF B5555_FIELD N┆
0x2a900…2a980 UnusedSector ┆OT CORRECT JMP TEC10 ; .OR. SNE R1 R3 ; BAAAA_FIELD NOT CORRECT JMP TEC90 ; THEN TEC10: ; ; JMPI S6 GETADDRESS ; GET POSITI┆
0x2a980…2aa00 UnusedSector ┆ON OF (PROMMED) ; CPU_TEST SEQUENCES; MOVC #1000 R3 ; SET-UP COUNT (4K PROM); MOVC 0 R0 ; OBJECT_SECTION 0; MOV TCBASE R2 ; ┆
0x2aa00…2aa80 UnusedSector ┆GET "BASE" CPU_TEST PROGRAMS; MOV XBASE R7 ; SUB R7 R2 ; MAKE REL "OWN" BASE; JMPI S6 COPY ; COPY CPU_TEST PROGRAMS ; TO MEM┆
0x2aa80…2ab00 UnusedSector ┆ MOV FDADR R7 ; GET DEVICE ADDRESS; CIO R2 R7 ; CONTROL(DATA, DEVICE); JMP X6 ; RETURN CALLER; FD3580: ; ELSE MOV R6 FD30SV ;┆
0x2ab00…2ab80 UnusedSector ┆ MOV R2 XR2 ; JMP S6 DMA ; DMA: CONTROL REMOTE DEVICE 2,FD,DMCMODE,XR2,DMMEMMODE,DMOUTPUT JMPI FD30SV ; RETURN CALLER; ; EN┆
0x2ab80…2ac00 UnusedSector ┆D CONTROLLING FD; ;FF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; PROCEDURE DO_DMA (CNT, REM_ADR┆
0x2ac00…2ac80 UnusedSector ┆,REM_PAGE,LOC_ADR,LOC_PAGE,REQUEST); ; R2 - DESTROYED ; RL LINK DESTROYED ; R7 - DESTROYED ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x2ac80…2ad00 UnusedSector ┆ ; DMA IF CHARACTERISTICS ;;;;;;;;;;;;;;;;;;;;;;;;;; ; ;DMA_STATUS: DMRQSNT= BIT3 ; REQUEST SENT DMNTEOB= BIT5 ; NOT_EOB DM┆
0x2ad00…2ad80 UnusedSector ┆ERRM1= 1<BIT6 OR %; STOPPED 1<BIT7 OR %; REMOTE TIME-OUT 1<BIT8 OR %; LOCAL TIME-OUT 1<BIT9 ; PARITY ERROR ;DMA_COM'DS: DML┆
0x2ad80…2ae00 UnusedSector ┆DBC= 0<8 ; LOAD BYTE COUNT DMLDAD= 1<8 ; LOAD ADDRESS DMLDPG= 2<8 ; LOAD PAGE DMSNRQ= 3<8 ; SEND REQUEST DMSTART= 5<8 ; STAR┆
0x2ae00…2ae80 UnusedSector ┆T DMA DMSTOP= 6<8 ; STOP DMA DMRESET= 7<8 ; RESET DMA IF DMRMBC= 8<8 ; LOAD REMOTE BYTE COUNT DMRMAD= 9<8 ; LOAD REMOTE ADDR┆
0x2ae80…2af00 UnusedSector ┆ESS DMRMPG= 10<8 ; LOAD REMOTE PAGE ; DMINPUT= 2#01 ; INPUT REQUEST, TYPE 0 DMOUTPUT= 2#00 ; OUTPUT REQUEST, TYPE 0 DMMEMMO┆
0x2af00…2af80 UnusedSector ┆DE= #302 ; MEMORY MODE: LOWER BYTE, PAGE 0 DMSMODE= #2 ; SENSE IO MODE DMCMODE= #2 ; CONTROL IO MODE DMRMODE= #6 ; READ IO MO┆
0x2af80…2b000 UnusedSector ┆DE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DMA: ;DMA: DMA00: ; REPEAT MOV DMAADR R7 ; GET DEVICE ADDRESS; MOVC DMOUTPUT R2 ; SET┆
0x2b000…2b080 UnusedSector ┆-UP CONTROL MODC DMSNRQ WIO R2 R7 ; OUTPUT(CMD, CTL, DEVICE); MOVC 0 R2 ; WAIT MOVC 0 R2 ; 2 USEC; RIO R2 R7 ; INPUT(STATUS┆
0x2b080…2b100 UnusedSector ┆, DEVICE); IBZ R2 DMRQSNT ; UNTIL REQUEST JMP DMA00 ; ACCEPTED; MVP 0. X6 R2 ; GET COUNT_FIELD; MODC DMRMBC WIO R2 R7 ; OUT┆
0x2b100…2b180 UnusedSector ┆PU_TEST_PGMS); MOV R1 R7 ; MOVC TCPOOL R6 ; TEC20: ; REPEAT MOVL 0. X4 R01 ; IEQ R0 #BE ; IF TEST UNDEFINED (TRAP) SUB R0 R┆
0x2b180…2b200 UnusedSector ┆0 ; THEN FORCE DUMMY TEST; IEQ R0 0 ; IF DUMMY TEST JMP TEC30 ; THEN INE R0 #8000 ; IF NOT END_OF_TEST_FILE ADD R2 R0 ; ADJU┆
0x2b200…2b280 UnusedSector ┆ST TO REL "ACTUAL" PROG; TEC30: ; END ADJUSTING PROG_REL; ADD R7 R1 ; ADJUST TO REL "ACTUAL" BASE; MOVL R01 0. X6 ; MAKE ADDC┆
0x2b280…2b300 UnusedSector ┆ 2 R4 ; REFERENCES ADDC 2 R6 ; RELATIVE; IBZ R0 BIT15 ; JMP TEC20 ; UNTIL CPU_TEST AREA INITIALIZED; ; MOVC 0 R7 ; MOV R7┆
0x2b300…2b380 UnusedSector ┆ PGMLOOP ; INITIALIZE COUNTERS MOV R7 PGMLOOP+1 ; MOV R7 PGMNEXT ; AND CURRENT TEST PGM POINTER; TEC90: JMPI S6 OUTNL ; ;CONT┆
0x2b380…2b400 UnusedSector ┆INUE WITH CPU_TEST MAIN_LINE: ;FF ; C P U T E S T P R O G R A M - M A I N L I N E ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x2b400…2b480 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;; USE BASE ; ; CPU_TEST_CONTROL_BLOCK LAY-OUT LOC= 0 ; ------------------------------ CTCBID: LOC= L┆
0x2b480…2b500 UnusedSector ┆OC+1 ; IDENTIFICATION OF TEST CTCBCNT:LOC= LOC+1 ; NUMBER OF DATA IN TEST RUN CTCBRST:LOC= LOC+1 ; RESET VALUE (IF 0 THEN FIRST ┆
0x2b500…2b580 UnusedSector ┆AREA COPIED) CTCBDATA:LOC=LOC+1 ; DATA AREA: ; 1ST AREA (CNT) WORDS, EXPECTED DATA ; 2ND AREA, INPUT DATA AREA ;;;;;;;;;;;;;;;┆
0x2b580…2b600 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; USE PROG ; FOR I:=1 UNTIL TEST_LOOP_COUNT ; DO ; REPEAT UNTIL TABLE ┆
0x2b600…2b680 UnusedSector ┆SCANNED MAINLOOP: MOV PGMEVALUATE R0 ; GET CHECK/PRINT-OUT FLAG MOV PGMNEXT R6 ; GET REF(CUR'T TEST_PGM_NDX); MOV TCPOOL+TCPP┆
0x2b680…2b700 UnusedSector ┆ROG.X6 R4 ; GET REF(CUR'T TEST_PGM_ADR); SNE R0 TRUE ; IF EVALUATION IEQ R4 0 ; .AND. VALID TEST_PROGRAM JMP MAI50 ; THEN ;--┆
0x2b700…2b780 UnusedSector ┆---------------------------------; ; EVALUATE TEST RESULTS ; ;-----------------------------------; MOV TCPOOL+TCPDATA.X6 R4 ; G┆
0x2b780…2b800 UnusedSector ┆ET REF(ASSOCIATED DATA_AREA) MOVC CTCBDATA R5 ; OFF-SET TO EXPECTED DATA; ADD R4 R5 ; REF (EXPECTED_DATA_AREA); MOV REFWORK R┆
0x2b800…2b880 UnusedSector ┆7 ; POINT WORK AREA; MOV CTCBCNT.X4 R3 ; FORI:=1 UNTIL NO_WORDS MAI10: ; DO IEQ X5 X7 ; IF DISCREPANCY JMP MAI20 ; THEN MOV ┆
0x2b880…2b900 UnusedSector ┆R7 MAISV ; MOV R4 MAISV+1 ; JMPI S4 OUTSTRING, <:TEST :>, EOT MOV MAISV+1 R4 ; MOV CTCBID.X4 R2 ; GET TEST IDENTIFICATION J┆
0x2b900…2b980 UnusedSector ┆MPI S6 OUTHEXA ; JMPI S4 OUTSTRING, <: WORD :>, EOT MOV MAISV+1 R4 ; MOV CTCBCNT.X4 R2 ; COMPUTE WORD SUB R3 R2 ; NUMBER; J┆
0x2b980…2ba00 UnusedSector ┆MPI S6 OUTHEXA ; JMPI S4 OUTSTRING, <: TO BE :>, EOT MOV X5 R2 ; GET ACTUAL RESULT JMPI S6 OUTHEXA JMPI S4 OUTSTRING, <:- WA┆
0x2ba00…2ba80 UnusedSector ┆S :>, EOT MOV MAISV R7 ; MOV X7 R2 ; GET EXPECTED JMPI S6 OUTHEXA ; GET EXPECTED JMPI S6 OUTNL ; WRITE_NEWLINE; MOV MAISV+1┆
0x2ba80…2bb00 UnusedSector ┆ORY #1000 UPWARDS; MOV XBASE R3 ; MOV TCBASE R1 ; GET START OF CPU_TEST_PROGRAMS; SUB R3 R1 ; SET-UP CPU-TEST-"OWN=_BASE; MO┆
0x2bb00…2bb80 UnusedSector ┆V TCBASE R2 ; MOV XPROG R7 ; SUB R7 R2 ; SET-UP CPU_TEST-"OWN"_PROG; MOV R1 R7 ; MOV 0. X7 R0 ; GET FIRST STATEMENT; INE R0┆
0x2bb80…2bc00 UnusedSector ┆ #0158 ; IF NOT 'JMP LOC' JMPI ERROR ; THEN ERRORONEOUS MODULE; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; RAM RESIDENT VERSION AC┆
0x2bc00…2bc80 UnusedSector ┆CEPTED ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; JMP S4 LOC+2 ; BY-PASS INSTRUCTION; JMPI S4 OUTSTRING MVP 0. X4 R0 ; GET INSTR┆
0x2bc80…2bd00 UnusedSector ┆UCTION MOV R0 0. X7 ; INSERTED AS FIRST OF AREA; MOV R2 R6 ; JMP S5 LOC+1 ; ESTABLISH LINK BACK; JMP X6 ; ACTIVATE RAM_RESID┆
0x2bd00…2bd80 UnusedSector ┆ING PART; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;RETURN_FROM_CUP_TEST: ; R0,4,6,7 DESTROYED ; R4 REF CPU_TEST PROGRAM_TABLE ;┆
0x2bd80…2be00 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; SET-UP CPU_TEST CONTROL ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ADD R1 R4 ; ADJUST REF(C┆
0x2be00…2be80 UnusedSector ┆_UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD__UNREAD_┆
0x2be80…2bf00 UnusedSector ┆ BREAK_CHECK JMPI & S6 UTILITIES ;*** R:(BREAK OCCURED); ;-----------------------------------; ; SEARCH NEXT TEST SEQUENCE ; ;-┆
0x2bf00…2bf80 UnusedSector ┆----------------------------------; MOV PGMNEXT R6 ; GET REF(TEST_PGM TABLE INDEX); MAI55: ; REPEAT ADDC 2 R6 ; POINT NEXT TES┆
0x2bf80…2c000 UnusedSector ┆T_RECORD; MOV TCPOOL+TCPPROG.X6 R7 ; GET REF(TEST_PROGRAM); IEQ R7 0 ; IF VALID TEST JMP MAI55 ; THEN MOV R6 PGMNEXT ; SAVE ┆
0x2c000…2c080 UnusedSector ┆REFERENCE; SNE R7 #8000 ; IF STILL TEST PROGRAMS LEFT JMP MAI80 ; THEN MOV TCPOOL+TCPDATA.X6 R4 ; GET REF(ASSOCIATED DATA); ┆
0x2c080…2c100 UnusedSector ┆MOVL CTCBCNT.X4 R01 ; GET NO_WORDS, RESET VALUE; ADD R0 R4 ; ADJUST FOR EXPECTED_AREA; MOV R4 R5 ; MOV REFWORK R6 ; POINT WOR┆
0x2c100…2c180 UnusedSector ┆K AREA; IEQ R1 0 ; IF WHOLE AREA EQUAL 'R1' JMP MAI65 ; THEN MAI60: ; REPEAT MOV R1 X6 ; INITIALIZE AREA; ADDC 1 R6 ; ADJUST┆
0x2c180…2c200 UnusedSector ┆ POINTER; SOB R0 MAI60 ; UNTIL AREA COVERED; JMP MAI70 ; ELSE MAI65: ; REPEAT MOV CTCBDATA.X4 R2 ; GET NEXT WORD MOV R2 X6 ;┆
0x2c200…2c280 UnusedSector ┆ COPIED; ADDC 1 R4, ADDC 1 R6 ; ADJUST POINTERS; SOB R0 MAI65 ; END COPYING AREA; MAI70: ; ADDC CTCBDATA R5 ; ADJUST POINTER ┆
0x2c280…2c300 UnusedSector ┆TO INPUT; MOVL 0. X5 R01 ; MOVL 2. X5 R23 ; MOV 4. X5 R4 ; MOV REFWORK R6 ; POINT WORK AREA; JMP X7 ; EXECUTE TEST PROGRAM;┆
0x2c300…2c380 UnusedSector ┆ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; EXECUTE TEST SEQUENCE ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;TEST_PROGRAM_ENTRY: ; ┆
0x2c380…2c400 UnusedSector ┆R0-4:FIRST 5 WORK_WORDS ; R5 - REF(WORK_AREA) ; R6 - REF(OUTPUT_AREA) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; MAINTAIN LONG_I┆
0x2c400…2c480 UnusedSector ┆NTEGER ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAI80: ; END TABLE_SCAN; MOVC 0 R6 ; RE-ADJUST TO TOP MOV R6 PGMNEXT ; PROGRAM_┆
0x2c480…2c500 UnusedSector ┆INDEX; MOVC PGMLOOP R6 ; REF(TEST_LOOP_COUNT); MOVL 0. X6 R01 ; GET NO_TEST LEFT (LONG INT); ADDC -1 R0 ; ADJUST LEAST SIGNIF┆
0x2c500…2c580 UnusedSector ┆ICANT; IEQ R0 -1 ; IF LEAST_SIGN'T BELOW ADDC -1 R1 ; THEN ADJUST MOST_SIGNIFI'T; SNEP R0 -1 ; IEQ R1 -1 ; CPU_LOOP_TEST JM┆
0x2c580…2c600 UnusedSector ┆P TESTEND ; ; MOVL R01 0. X6 ; SAVE; JMPI MAINLINE ; END CPU_TEST_LOOP; ; E N D P R O G R A M ;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x2c600…2c680 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TESTEND: ┆
0x2c680…2c700 UnusedSector ┆ MOVC <:*:> R0 ; MOVC 44 R3 ; FOR I:=1 UNTIL 44 END10: ; DO JMPI S6 OUTCHAR ; WRITE_CHAR; SOB R3 END10 ; END FOR_UNTIL; JMP┆
0x2c700…2c780 UnusedSector ┆ UT5010 ; RETURN UTILITIES_MAIN_LINE; ;----------------------------------------------------------------------- ;FF ; M A S T E┆
0x2c780…2c800 UnusedSector ┆ R C L E A R E N T R Y P O I N T ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ENTRY POINT UPON MAST┆
0x2c800…2c880 UnusedSector ┆ER CLEAR ; ; R2 POINTER PROMMED PROGRAM ; R4 PROG_REL ADDRESS OF AUTOMATIC SERVICE PROGRAM ; R5 POINTER PROMMED PROCESS_DESCRIPT┆
0x2c880…2c900 UnusedSector ┆OR ; R7 DEVICE ADDRESS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; MCENTRYPOINT: ;ENTRY_POINT UPON MASTER CLEAR: SVP MCWAITCPU ; ┆
0x2c900…2c980 UnusedSector ┆MOVC 0 R6 ; MOV R6 XR0 ; RESET MEMORY CLAIM SEMAPHORE; MOVC 100 R6 ; SOB R6 LOC ; WAIT 100-200 USEC; RESS X6 BIT0 ; RESERVE ┆
0x2c980…2ca00 UnusedSector ┆MEMORY JMP MCE10 ; (LOST: WAIT FOR CPU_INTERRUPT, ; WON: CONTINUE); MOV MSEC R6 ; SOB R6 LOC ; WAIT 1 MSEC; JMP MCE20 ; ;;;┆
0x2ca00…2ca80 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; WAIT FOR WINNER'S CPU INTERRUPT ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MCE10: ;LOOSER'S_FA┆
0x2ca80…2cb00 UnusedSector ┆ R4 ; MOV MAISV R7 ; RE-ESTABLISH POINTER; MAI20: ; END DISCREPANCY; ADDC 1 R5, ADDC 1 R7 ; SOB R3 MAI10 ; END FOR_UNTIL; ;--┆
0x2cb00…2cb80 UnusedSector ┆OC) FI FI PROGRAMSTART+EMERGENCY ; EMERGENCY ACTION SERVICE PROGRAM #0000 ; PROM CHECK-SUM BEGIN EXTERNAL EOT EXTERNAL BIT0┆
0x2cb80…2cc00 UnusedSector ┆, BIT1, BIT2, BIT3, BIT4, BIT5, BIT6, BIT7, EXTERNAL BIT8, BIT9, BIT10, BIT11, BIT12, BIT13, BIT14, BIT15 USE BASE EXTERNAL C┆
0x2cc00…2cc80 UnusedSector ┆PUMON EXTERNAL XBASE, XPROG EXTERNAL TCBASE, TCREFWORK EXTERNAL B5555, BAAAA, CP06, CP20INS, CPWORK EXTERNAL CP46P, CP46 US┆
0x2cc80…2cd00 UnusedSector ┆E PROG EXTERNAL MAINLINE, P5555, PAAAA NAMES END ;FF END T9, BIT10, BIT11, BIT12, BIT13, BIT14, BIT15 USE BASE EXTERNAL C┆
0x2cd00…2cd80 UnusedSector 0x00[128]
0x2cd80…2ce00 UnusedSector ┆ITH: MOV R1 XBASE ; MOV R1 XMOD ; LDN R3 ;***ACTIVATE CPU WITH DUMMY PROCESS; MCWAITCPU: LDM 2#101 ; OPEN FOR CPU_INTERRUPTS┆
0x2ce00…2ce80 UnusedSector ┆ ONLY; JMP LOC ; WAIT FOR INTERRUPT; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; INITIALIZE WINNING PROCESS ; ;;;;;;;;;;;;;;;;;;;;;┆
0x2ce80…2cf00 UnusedSector ┆;;;;;;;;;;;;;;;; MCE20: ;INITIALIZE: MOVC XABS R7 ; FOR I:=1 UNTIL COUNT MCE30: ; DO MOVL 0. X5 R01 ; MOVL R01 0. X6 ; COPY ┆
0x2cf00…2cf80 UnusedSector ┆ADDC 2 R5 ; PROCESS ADDC 2 R6 ; DESCRIPTOR; SOB R7 MCE30 ; END FOR_UNTIL; NOLIST IF SCMMODE THEN LIST MCE40: ;RETRY_AUTO_BOOT┆
0x2cf80…2d000 UnusedSector ┆: MOV SCMADR R7 ; GET OC'S DEVICE ADDRESS; MODC SCMSTATUS SIO R0 R7 ; SENSE(STATUS, DEVICE); MOVC SCMASYNC R1 ; MODC SCMMR1┆
0x2d000…2d080 UnusedSector ┆ CIO R1 R7 ; LOAD MODE REGISTER 1; MOV R0 R2 ; SRL R2 BIT11 ; POSITION FRONT-PANEL SWITCH IBN R2 BIT15-BIT11; IF AUTOMATIC_M┆
0x2d080…2d100 UnusedSector ┆ODE MOVC 2#0101 R2 ;... THEN FORCE 300 BAUD; XTR R2 4 ; ISOLATE SWITCH SETTING (BAUD); ADDC SCMBAUD R2 ; SET-UP PROPER MODE R┆
0x2d100…2d180 UnusedSector ┆EG 2; MODC SCMMR2 CIO R2 R7 ; LOAD MODE_REGISTER 2; ; SBZ R0 BIT15 ; IF MANUAL MODE JMP MCE70 ; THEN NOLIST ELSE LIST MOV ┆
0x2d180…2d200 UnusedSector ┆OCADR R7 ; GET OC DEVICE ADDRESS MOVC OCENB R0 ; CIO R0 R7 ; ENABLE AV24; RIO R0 R7 ; STATUS FLAGS; SIO R0 R7 ; RESET NOLIST┆
0x2d200…2d280 UnusedSector ┆ FI LIST ; JMPI S4 OUTSTRING, <:<13>CSS/395/02 791101:>, EOT JMPI S4 OUTSTRING, <:<13>CPU :>, EOT SVS R0 ; GET CURRENT PSW ┆
0x2d280…2d300 UnusedSector ┆SWP R0 ; POSITION CPU-NO AS RIGHTMOST; XTR R0 3 ; ISOLATE CPU NO; ADDC <:0:> R0 ; CONVERT TO ASCII; JMPI S6 OUTCHAR ; WRITE_C┆
0x2d300…2d380 UnusedSector ┆HAR; MCE50: JMPI S6 UTILITIES ; JMP MCE50 ; NOLIST IF SCMMODE THEN LIST ;FF ; A U T O M A T I C M O D E ;;;;;;;;;;;;;;;;;;;;┆
0x2d380…2d400 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; AUTO MODE ; R0 SCM STATUS WORD ; BIT12,11 DRIVE IDENTIFICATION ; BIT13 TY┆
0x2d400…2d480 UnusedSector ┆PE OF DEVICE: 0=FD, 1=CDC-DISK ; BIT14 BOOT INDIRECT VIA DMA-CHANNEL ; BIT15 AUTO MODE FLAG (HIGH) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x2d480…2d500 UnusedSector ┆;;;;;;;; ; MCE70: ;AUTO_MODE: SBZ R0 BIT13 ; IF AUTO LOAD FROM FLOPPY JMP MCE80 ; THEN MOV R0 R2 ; FORCE DIRECT LOAD AS DEFA┆
0x2d500…2d580 UnusedSector ┆ULT; IBN R2 BIT14 ; IF REQUEST FOR VIA DMA MOVC <:X:> R2 ; THEN PREPARE INDIRECT LOAD; SRL R0 BIT11 ; POSITION DRIVE NUMBER; ┆
0x2d580…2d600 UnusedSector ┆ JMPI S6 FDBLOAD ; LOAD_FILE FROM FD JMP & MCE40 ; FAILED:(RETRY), LDN R3 ;*** ACTIVATE LOADED PROCESS; MCE80: ; ELSE TRP 0 ;┆
0x2d600…2d680 UnusedSector ┆ INVALID SETTING NOLIST FI LIST ;///////////////////////////////////; END BASIC_INTITIALIZATION; MCE90: ;RETURN_CALLER: MOV ┆
0x2d680…2d700 UnusedSector ┆XOLDPRC R7 ; GET BASE CALLING PROCESS LDN R7 ; RE-ACTIVATE CALLING PROCESS; ENDOFPGM: ;FF PROGRAMSTART:= CPUPROM+PROGSTART PRO┆
0x2d700…2d780 UnusedSector ┆GRAMGO:= PROGRAMSTART+MCENTRYPOINT ABSMCE50:= PROGRAMSTART+MCE50 IF LOC LT #0FE0 THEN #0000, REPEAT (#FE0-LOC) AN #7FF ELSE ┆
0x2d780…2d800 UnusedSector ┆MESSAGE LOC FI RELPROMBASE= PROGRAMSTART+LOC-CPUBASE USE BASE LOC= ENDOFDATA IF LOC LT #1E #0000 IF LOC LT #1E REPEAT (#1E-L┆
0x2d800…2d880 UnusedSector 0x00[128]
[…0x7…]
0x2dc00…2dc80 UnusedSector ┆TUID: LOC= LOC+3 ; LTU DOWNLOAD PROGRAM IDENTIFICATION ; HAS TO START WITH 'LTU<0>' LTUPGMS:LOC= LOC+1 ; NUMBER OF DLTU_DOWN-LO┆
0x2dc80…2dd00 UnusedSector ┆AD PROGRAMS LTUPGM: LOC= LOC+1 ; ADDRESS LTU DOWNLOAD PROGRAM(S) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; USE PROG ; ; UT6000: ;DO┆
0x2dd00…2dd80 UnusedSector ┆WN-LOAD_LTU: JMPI S6 GETHEXA ; GET LTU_PGM_CONTROL_BLOACK ADDR; MOV R2 R5 ; MOV XBASE R3 ; SUB R3 R5 ; MOVL LTUID. X5 R12 ;┆
0x2dd80…2de00 UnusedSector 0x00[128]
[…0x12…]
0x2e700…2e780 UnusedSector ┆ MOV MAISV+1 R4 ; MOV CTCBCNT.X4 R2 ; COMPUTE WORD SUB R3 R2 ; NUMBER; JMPI S6 OUTHEXA ; JMPI S4 OUTSTRING, <: TO BE :>, EO┆
0x2e780…2e800 UnusedSector ┆T MOV X5 R2 ; GET ACTUAL RESULT JMPI S6 OUTHEXA JMPI S4 OUTSTRING, <:- WAS :>, EOT MOV MAISV R7 ; MOV X7 R2 ; GET EXPECTED ┆
0x2e800…2e880 UnusedSector ┆ JMPI S6 OUTHEXA ; GET EXPECTED JMPI S6 OUTNL ; WRITE_NEWLINE; MOV MAISV+1 R4 ; MOV MAISV R7 ; RE-ESTABLISH POINTER; MAI20: ;┆
0x2e880…2e900 UnusedSector ┆ END DISCREPANCY; ADDC 1 R5, ADDC 1 R7 ; SOB R3 MAI10 ; END FOR_UNTIL; ;-----------------------------------; ; CHECK IF BREAK ┆
0x2e900…2e980 UnusedSector ┆OCCURED ; ;-----------------------------------; MAI50: JMPI S6 BREAKCHECK ; BREAK_CHECK JMPI & S6 UTILITIES ;*** R:(BREAK OCCU┆
0x2e980…2ea00 UnusedSector ┆RED); ;-----------------------------------; ; SEARCH NEXT TEST SEQUENCE ; ;-----------------------------------; MOV PGMNEXT R6 ┆
0x2ea00…2ea80 UnusedSector ┆; GET REF(TEST_PGM TABLE INDEX); MAI55: ; REPEAT ADDC 2 R6 ; POINT NEXT TEST_RECORD; MOV TCPOOL+TCPPROG.X6 R7 ; GET REF(TEST_P┆
0x2ea80…2eb00 UnusedSector ┆ROGRAM); IEQ R7 0 ; IF VALID TEST JMP MAI55 ; THEN MOV R6 PGMNEXT ; SAVE REFERENCE; SNE R7 #8000 ; IF STILL TEST PROGRAMS LE┆
0x2eb00…2eb80 UnusedSector ┆FT JMP MAI80 ; THEN MOV TCPOOL+TCPDATA.X6 R4 ; GET REF(ASSOCIATED DATA); MOVL CTCBCNT.X4 R01 ; GET NO_WORDS, RESET VALUE; AD┆
0x2eb80…2ec00 UnusedSector ┆D R0 R4 ; ADJUST FOR EXPECTED_AREA; MOV R4 R5 ; MOV REFWORK R6 ; POINT WORK AREA; IEQ R1 0 ; IF WHOLE AREA EQUAL 'R1' JMP MA┆
0x2ec00…2ec80 UnusedSector ┆I65 ; THEN MAI60: ; REPEAT MOV R1 X6 ; INITIALIZE AREA; ADDC 1 R6 ; ADJUST POINTER; SOB R0 MAI60 ; UNTIL AREA COVERED; JMP M┆
0x2ec80…2ed00 UnusedSector ┆AI70 ; ELSE MAI65: ; REPEAT MOV CTCBDATA.X4 R2 ; GET NEXT WORD MOV R2 X6 ; COPIED; ADDC 1 R4, ADDC 1 R6 ; ADJUST POINTERS; S┆
0x2ed00…2ed80 UnusedSector ┆OB R0 MAI65 ; END COPYING AREA; MAI70: ; ADDC CTCBDATA R5 ; ADJUST POINTER TO INPUT; MOVL 0. X5 R01 ; MOVL 2. X5 R23 ; MOV 4┆
0x2ed80…2ee00 UnusedSector ┆ GET MODULE IDENTIFICATION; ADDC -<:LT:> R1 ; ADDC -<:U<0>:> R2 ; IEQ R1 0 ; IF IDENTIFICATION .EQ. SEQ R2 0 ; 'LTU<0>' JMP┆
0x2ee00…2ee80 UnusedSector ┆I ERROR ; THEN MOVC 0 R2 ; DEFAULT PGM_NO 0; IEQ R0 <:.:> ; JMPI S6 GETHEXA ; GET LTU_PGM_NUMBER; IHS R2 LTUPGMS.X5 ; IF WIT┆
0x2ee80…2ef00 UnusedSector ┆HIN VALID RANGE JMPI ERROR ; THEN MOD R2 MOV LTUPGM.X5 R5 ; GET ADDRESS LTU_PROGRAM SUB R3 R5 ; ADJUST FOR OWN BASE; UT6020:┆
0x2ef00…2ef80 UnusedSector ┆ ; REPEAT JMPI S6 GETHEXA ; GET DEVICE ADDRESS; MOV R0 UT60SV ; SAVE LAST ENTERED CHAR; SNE R1 TRUE ; JMP UT6080 ; XTR R2 6┆
0x2ef80…2f000 UnusedSector ┆ ; ISOLATE DEVICE ADDRESS ; /////////////////// ;R2 - DEVICE ADDRESS ;R5 - POINTER LTU PROGRAM KEPT ; YOUR CODE ; ; //////////┆
0x2f000…2f080 UnusedSector ┆///////// UT6080: ; MOV UT60SV R0 ; INE R0 CR ; UNTIL END_OF_COMMAND; JMP UT6020 ; END DOWN_LOADING LTO'S; JMP UT5020 ; RETU┆
0x2f080…2f100 UnusedSector ┆RN UTILITIES MAIN_LINE; UT6090: ;LTU_ERROR: JMPI S4 OUTSTRING, <:, LTU ERROR=:>, EOT JMPI S6 OUTHEXA ; JMP UT5010 ; RETURN U┆
0x2f100…2f180 UnusedSector ┆TILITIES_NEW_LINE; ;FF T60SV R0 ; INE R0 CR ; UNTIL END_OF_COMMAND; JMP UT6020 ; END DOWN_LOADING LTO'S; JMP UT5020 ; RETU┆
0x2f180…2f200 UnusedSector 0x00[128]
0x2f200…2f280 UnusedSector ┆: ; END TABLE_SCAN; MOVC 0 R6 ; RE-ADJUST TO TOP MOV R6 PGMNEXT ; PROGRAM_INDEX; MOVC PGMLOOP R6 ; REF(TEST_LOOP_COUNT); MOV┆
0x2f280…2f300 UnusedSector ┆L 0. X6 R01 ; GET NO_TEST LEFT (LONG INT); ADDC -1 R0 ; ADJUST LEAST SIGNIFICANT; IEQ R0 -1 ; IF LEAST_SIGN'T BELOW ADDC -1 R┆
0x2f300…2f380 UnusedSector ┆1 ; THEN ADJUST MOST_SIGNIFI'T; SNEP R0 -1 ; IEQ R1 -1 ; CPU_LOOP_TEST JMP TESTEND ; ; MOVL R01 0. X6 ; SAVE; JMPI MAINLIN┆
0x2f380…2f400 UnusedSector ┆E ; END CPU_TEST_LOOP; ; E N D P R O G R A M ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;┆
0x2f400…2f480 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TESTEND: MOVC <:*:> R0 ; MOVC 44 R3 ; FOR I:=1 UNTIL 44 END┆
0x2f480…2f500 UnusedSector ┆10: ; DO JMPI S6 OUTCHAR ; WRITE_CHAR; SOB R3 END10 ; END FOR_UNTIL; JMP UT5010 ; RETURN UTILITIES_MAIN_LINE; ;------------┆
0x2f500…2f580 UnusedSector ┆----------------------------------------------------------- ;FF ; M A S T E R C L E A R E N T R Y P O I N T ;;;;;;;;;;;;;;;;;;;┆
0x2f580…2f600 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ENTRY POINT UPON MASTER CLEAR ; ; R2 POINTER PROMMED PROGRAM ; R4 PROG_RE┆
0x2f600…2f680 UnusedSector ┆L ADDRESS OF AUTOMATIC SERVICE PROGRAM ; R5 POINTER PROMMED PROCESS_DESCRIPTOR ; R7 DEVICE ADDRESS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x2f680…2f700 UnusedSector ┆;;;;;;;; ; MCENTRYPOINT: ;ENTRY_POINT UPON MASTER CLEAR: SVP MCWAITCPU ; MOVC 0 R6 ; MOV R6 XR0 ; RESET MEMORY CLAIM SEMAPHO┆
0x2f700…2f780 UnusedSector ┆RE; MOVC 100 R6 ; SOB R6 LOC ; WAIT 100-200 USEC; RESS X6 BIT0 ; RESERVE MEMORY JMP MCE10 ; (LOST: WAIT FOR CPU_INTERRUPT, ┆
0x2f780…2f800 UnusedSector ┆; WON: CONTINUE); MOV MSEC R6 ; SOB R6 LOC ; WAIT 1 MSEC; JMP MCE20 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; WAIT FOR WINNER┆
0x2f800…2f880 UnusedSector ┆'S CPU INTERRUPT ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MCE10: ;LOOSER'S_FAITH: MOV R1 XBASE ; MOV R1 XMOD ; LDN R3 ;***ACTI┆
0x2f880…2f900 UnusedSector ┆VATE CPU WITH DUMMY PROCESS; MCWAITCPU: LDM 2#101 ; OPEN FOR CPU_INTERRUPTS ONLY; JMP LOC ; WAIT FOR INTERRUPT; ;;;;;;;;;;;;;;┆
0x2f900…2f980 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;; ; INITIALIZE WINNING PROCESS ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MCE20: ;INITIALIZE: MOVC XABS R7 ;┆
0x2f980…2fa00 UnusedSector ┆ FOR I:=1 UNTIL COUNT MCE30: ; DO MOVL 0. X5 R01 ; MOVL R01 0. X6 ; COPY ADDC 2 R5 ; PROCESS ADDC 2 R6 ; DESCRIPTOR; SOB R7┆
0x2fa00…2fa80 UnusedSector ┆ MCE30 ; END FOR_UNTIL; NOLIST IF SCMMODE THEN LIST MCE40: ;RETRY_AUTO_BOOT: MOV SCMADR R7 ; GET OC'S DEVICE ADDRESS; MODC SC┆
0x2fa80…2fb00 UnusedSector ┆MSTATUS SIO R0 R7 ; SENSE(STATUS, DEVICE); MOVC SCMASYNC R1 ; MODC SCMMR1 CIO R1 R7 ; LOAD MODE REGISTER 1; MOV R0 R2 ; SR┆
0x2fb00…2fb80 UnusedSector ┆L R2 BIT11 ; POSITION FRONT-PANEL SWITCH IBN R2 BIT15-BIT11; IF AUTOMATIC_MODE MOVC 2#0101 R2 ;... THEN FORCE 300 BAUD; XTR R┆
0x2fb80…2fc00 UnusedSector ┆2 4 ; ISOLATE SWITCH SETTING (BAUD); ADDC SCMBAUD R2 ; SET-UP PROPER MODE REG 2; MODC SCMMR2 CIO R2 R7 ; LOAD MODE_REGISTER 2┆
0x2fc00…2fc80 UnusedSector ┆; ; SBZ R0 BIT15 ; IF MANUAL MODE JMP MCE70 ; THEN NOLIST ELSE LIST MOV OCADR R7 ; GET OC DEVICE ADDRESS MOVC OCENB R0 ; C┆
0x2fc80…2fd00 UnusedSector ┆IO R0 R7 ; ENABLE AV24; RIO R0 R7 ; STATUS FLAGS; SIO R0 R7 ; RESET NOLIST FI LIST ; JMPI S4 OUTSTRING, <:<13>CSS/395/02 791┆
0x2fd00…2fd80 UnusedSector ┆101:>, EOT JMPI S4 OUTSTRING, <:<13>CPU :>, EOT SVS R0 ; GET CURRENT PSW SWP R0 ; POSITION CPU-NO AS RIGHTMOST; XTR R0 3 ; I┆
0x2fd80…2fe00 UnusedSector ┆. X5 R4 ; MOV REFWORK R6 ; POINT WORK AREA; JMP X7 ; EXECUTE TEST PROGRAM; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; EXECUTE TES┆
0x2fe00…2fe80 UnusedSector ┆T SEQUENCE ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;TEST_PROGRAM_ENTRY: ; R0-4:FIRST 5 WORK_WORDS ; R5 - REF(WORK_AREA) ; R6┆
0x2fe80…2ff00 UnusedSector ┆ - REF(OUTPUT_AREA) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; MAINTAIN LONG_INTEGER ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAI80┆
0x2ff00…2ff80 UnusedSector 0x00[128]
[…0x2…]
0x30080…30100 UnusedSector ┆SOLATE CPU NO; ADDC <:0:> R0 ; CONVERT TO ASCII; JMPI S6 OUTCHAR ; WRITE_CHAR; MCE50: JMPI S6 UTILITIES ; JMP MCE50 ; NOLIS┆
0x30100…30180 UnusedSector ┆T IF SCMMODE THEN LIST ;FF ; A U T O M A T I C M O D E ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x30180…30200 UnusedSector ┆ ; AUTO MODE ; R0 SCM STATUS WORD ; BIT12,11 DRIVE IDENTIFICATION ; BIT13 TYPE OF DEVICE: 0=FD, 1=CDC-DISK ; BIT14 BOOT INDIRECT┆
0x30200…30280 UnusedSector ┆ VIA DMA-CHANNEL ; BIT15 AUTO MODE FLAG (HIGH) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; MCE70: ;AUTO_MODE: SBZ R0 BIT13 ; IF AU┆
0x30280…30300 UnusedSector ┆TO LOAD FROM FLOPPY JMP MCE80 ; THEN MOV R0 R2 ; FORCE DIRECT LOAD AS DEFAULT; IBN R2 BIT14 ; IF REQUEST FOR VIA DMA MOVC <:┆
0x30300…30380 UnusedSector ┆X:> R2 ; THEN PREPARE INDIRECT LOAD; SRL R0 BIT11 ; POSITION DRIVE NUMBER; JMPI S6 FDBLOAD ; LOAD_FILE FROM FD JMP & MCE40 ; ┆
0x30380…30400 UnusedSector ┆FAILED:(RETRY), LDN R3 ;*** ACTIVATE LOADED PROCESS; MCE80: ; ELSE TRP 0 ; INVALID SETTING NOLIST FI LIST ;////////////////┆
0x30400…30480 UnusedSector ┆///////////////////; END BASIC_INTITIALIZATION; MCE90: ;RETURN_CALLER: MOV XOLDPRC R7 ; GET BASE CALLING PROCESS LDN R7 ; RE-A┆
0x30480…30500 UnusedSector ┆CTIVATE CALLING PROCESS; ENDOFPGM: ;FF PROGRAMSTART:= CPUPROM+PROGSTART PROGRAMGO:= PROGRAMSTART+MCENTRYPOINT ABSMCE50:= PROGRA┆
0x30500…30580 UnusedSector ┆MSTART+MCE50 IF LOC LT #0FE0 THEN #0000, REPEAT (#FE0-LOC) AN #7FF ELSE MESSAGE LOC FI RELPROMBASE= PROGRAMSTART+LOC-CPUBAS┆
0x30580…30600 UnusedSector ┆E USE BASE LOC= ENDOFDATA IF LOC LT #1E #0000 IF LOC LT #1E REPEAT (#1E-LOC) FI FI PROGRAMSTART+EMERGENCY ; EMERGENCY ACTIO┆
0x30600…30680 UnusedSector ┆N SERVICE PROGRAM #0000 ; PROM CHECK-SUM BEGIN EXTERNAL EOT EXTERNAL BIT0, BIT1, BIT2, BIT3, BIT4, BIT5, BIT6, BIT7, EXTERNA┆
0x30680…30700 UnusedSector ┆L BIT8, BIT9, BIT10, BIT11, BIT12, BIT13, BIT14, BIT15 USE BASE EXTERNAL CPUMON EXTERNAL XBASE, XPROG EXTERNAL TCBASE, TCREF┆
0x30700…30780 UnusedSector ┆WORK EXTERNAL B5555, BAAAA, CP06, CP20INS, CPWORK EXTERNAL CP46P, CP46 USE PROG EXTERNAL MAINLINE, P5555, PAAAA NAMES END ;┆
0x30780…30800 UnusedSector ┆FF END T9, BIT10, BIT11, BIT12, BIT13, BIT14, BIT15 USE BASE EXTERNAL CPUMON EXTERNAL XBASE, XPROG EXTERNAL TCBASE, TCREF┆
0x30800…30880 UnusedSector 0x00[128]
[…0x91…]
0x35100…35180 UnusedSector ┆; SET-UP PAGE; ; 00001343 1 0320 MOV R3 R7 ; ; 00001344 1 0321 SLL R7 12 ; COMPUTE CORRECT ADDRESS; ; 00001345 1 0322 SUB XBA┆
0x35180…35200 UnusedSector ┆SE R7 ; ; 00001346 1 0324 LDS R6 ; SWITCH TO RELEVANT PAGE; ; 00001347 1 0325 MOV 0. X7 R6 ; TEST RELEVANT 4K_RAM; ; 00001348┆
0x35200…35280 UnusedSector ┆ 1 0326 JMP UT2940 ; UNTIL ALL MODULES SERVED; ; 00001349 1 0327 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001350 1 0327 ; MAP┆
0x35280…35300 UnusedSector ┆ IO_MODULES ; ; 00001351 1 0327 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001352 1 0327 UT2970: ;MAP IO_MODULES: ; 00001353 1┆
0x35300…35380 UnusedSector ┆ 0327 JMPI S4 OUTSTRING, <:<13>IO: :>, EOT ; 00001354 1 032C MOVC 0 R3 ; FOR I:=0 UNTIL 63 IO_MODULES ; 00001355 1 032D JMP S4┆
0x35380…35400 UnusedSector 0x00[128]
[…0xc…]
0x35a00…35a80 UnusedSector ┆ILE FROM FD; ; 00001374 1 033A ; R:(FILE OK); ; 00001375 1 033A JMPI S6 OUTNL ; ; 00001376 1 033B LDS R2 ; CHANGE TO RELEVANT┆
0x35a80…35b00 UnusedSector ┆ PAGE; ; 00001377 1 033C LDN R3 ; ACTIVATE BOOT FILE; ; 00001378 1 033D ; 00001379 1 033D ; 00001380 1 033D ; 00001381 1 03┆
0x35b00…35b80 UnusedSector ┆3D ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001382 1 033D ; LOAD_UTILITIES ; 00001383 1 033┆
0x35b80…35c00 UnusedSector ┆D ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001384 1 033D UT3100: ;LOAD_FILE: ; 00001385 1 033D JMPI S4 OUTSTRING, <:OAD :>, E┆
0x35c00…35c80 UnusedSector ┆OT ; 00001386 1 0341 JMPI S6 INCHAR ; GET DEVICE IDENTIFICATION ; 00001387 1 0342 ADDC -<:O:> R0 ; NORMALIZE; ; 00001388 1 03┆
0x35c80…35d00 UnusedSector ┆43 JMPI S6 FDBLOAD ; LOAD_FILE FROM FD; ; 00001389 1 0344 JMP UT1050 ; RETURN MAIN LINE AS LOADED; ; 00001390 1 0345 ;FF ; 0┆
0x35d00…35d80 UnusedSector ┆0001391 1 0345 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001392 1 0345 ; PROCEDURE LOAD_BOOT_┆
0x35d80…35e00 UnusedSector ┆FILE I:(MODE_OF_OPERATION) ; 00001393 1 0345 ; R:(OK=>CALLER, ERROR=> MAIN_LINE); ; 00001394 1 0345 ; LOAD OK ; 00001395 1 03┆
0x35e00…35e80 UnusedSector ┆45 ; R0 MODE_OF_OPERATION DESTR ; 00001396 1 0345 ; R2 - PSW CORRESPONDING TO FILE ; 00001397 1 0345 ; R3 - BASE OF LOADED FIL┆
0x35e80…35f00 UnusedSector ┆E ; 00001398 1 0345 ; R6 LINK DESTROYED ; 00001399 1 0345 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001400 1 0345 FDREAD= 2#0┆
0x35f00…35f80 UnusedSector ┆0010<11 ; 00001401 1 0345 FDRESTORE= 2#01000<11 ; 00001402 1 0345 FDSEEK= 2#00100<11 ; 00001403 1 0345 FDSELECT= 2#00000<11 ;┆
0x35f80…36000 UnusedSector ┆ 00001404 1 0345 FDWRITE= 2#00001<11 ; 00001405 1 0345 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001406 1 0345 ; ; 00001407 ┆
0x36000…36080 UnusedSector ┆1 0345 FD1000: ;LOAD_BOOT_FILE: ; 00001408 1 0345 MOV R0 FDMODE ; SAVE MODE_OF_OPERATION (FD/DMA);; 00001409 1 0346 MOV R6 FD1┆
0x36080…36100 UnusedSector ┆0SV ; ; 00001410 1 0347 MOV DMAADR R7 ; GET DMA DEVICE_ADR; ; 00001411 1 0348 IEQP R0 <:X:>-<:O:>; IF INDIRECT TRANSFER ; 000┆
0x36100…36180 UnusedSector ┆01412 1 0349 MODC & DMRESET ; THEN ; 00001413 1 034A WIO & R7 R7 ; MASTER_CLEAR DMA_DEVICE; ; 00001414 1 034B JMPI S4 OUTSTRIN┆
0x36180…36200 UnusedSector ┆G ; 00001415 1 034C <:D: :>, EOT ; 00001416 1 034F JMPI S6 INCHAR ; GET FD DRIVE NO; ; 00001417 1 0350 XTR R0 2 ; ISOLATE DRI┆
0x36200…36280 UnusedSector ┆VE NUMBER (0_3); ; 00001418 1 0351 MOV R0 FD10DRV ; ; 00001419 1 0352 JMPI S6 SETPARITY ; ; 00001420 1 0353 ; ; 00001421 1 0┆
0x36280…36300 UnusedSector ┆353 MOVC FDZERO R5 ; POINT TOP OF AREA TO BE INIT'D; ; 00001422 1 0354 MOVC 0 R7 ; ; 00001423 1 0355 MOVC FDEND-FDZERO R3 ; FO┆
0x36300…36380 UnusedSector ┆R I:=1 UNTIL END_FD_AREA ; 00001424 1 0356 FD1010: ; DO ; 00001425 1 0356 MOV R7 0. X5 ; CLEAR OFF AREA; ; 00001426 1 0357 AD┆
0x36380…36400 UnusedSector ┆ UT2980 ; DO ; 00001356 1 032E JMP UT2990 ; **EXIT WHEN ALL IO_MODULES DONE;; 00001357 1 032F UT2980: MOVC <:1:> R0 ; DEFAULT ┆
0x36400…36480 UnusedSector ┆EXESTING MODULE; ; 00001358 1 0330 SIO R6 R3 ; SENSE(STATUS, DEVICE); ; 00001359 1 0331 JMP UT2940 ; UNTIL ALL MODULES SERVED;┆
0x36480…36500 UnusedSector ┆ ; 00001360 1 0332 ; ; 00001361 1 0332 UT2990: ; ; 00001362 1 0332 JMP UT1050 ; RETURN MAIN_LINE; ; 00001363 1 0333 NOLIST I┆
0x36500…36580 UnusedSector ┆F FDSUPPORT THEN LIST ; 00001364 1 0333 ;FF ; 00001365 1 0333 ; B O O T U T I L I T I E S ; 00001366 1 0333 ;;;;;;;;;;;;;;;;┆
0x36580…36600 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001367 1 0333 ; BOOT_UTILITIES ; 00001368 1 0333 ;;;;;;;;;;;;;;;;;┆
0x36600…36680 UnusedSector ┆;;;;;;;;;;;;;;;;;;;; ; 00001369 1 0333 UT3000: ;BOOT_LOAD: ; 00001370 1 0333 JMPI S4 OUTSTRING, <:OOT :>, EOT ; 00001371 1 03┆
0x36680…36700 UnusedSector ┆37 JMPI S6 INCHAR ; GET TRANSFER TYPE ; 00001372 1 0338 ADDC -<:O:> R0 ; NORMALIZE; ; 00001373 1 0339 JMPI S6 FDBLOAD ; LOAD_F┆
0x36700…36780 UnusedSector ┆5A INC FDAREASIZE.X5 ; AREASIZE:= 1 SECTOR ; 00001430 1 035B INC FDSECTORS. X5 ; SECTOR_PER_BLOCK:= 1 ; 00001431 1 035C INC FD┆
0x36780…36800 UnusedSector ┆BLOCKS. X5 ; BLOCKS_PER_AREA:= 1 ; 00001432 1 035D INC FDAREA. X5 ; 1ST_AREA ADDRESS:= 0<8+1 ; 00001433 1 035E MOD XBASE ; 00┆
0x36800…36880 UnusedSector ┆001434 1 035F MOVC FDDIRBUF R4 ; POINT FD_DIRECTORY BUFFER; ; 00001435 1 0360 MOV R4 FDCLOAD ; ; 00001436 1 0361 ; ; 00001437┆
0x36880…36900 UnusedSector ┆ 1 0361 ; NOTE R3:=0 (BLOCK 0) ; 00001438 1 0361 MOVC FDSEEK R2 ; SET-UP TRACK 0 OF LOAD DRIVE; ; 00001439 1 0363 JMPI S6 FDCO┆
0x36900…36980 UnusedSector ┆NTROL ; SEEK_TRACK OF LOAD DRIVE; ; 00001440 1 0364 JMPI S6 FDREADBLOCK; ; 00001441 1 0365 JMPI S6 FDTRANSFER ; TRANSFER LAST ┆
0x36980…36a00 UnusedSector ┆SECTOR (ONLY ONE);; 00001442 1 0366 JMPI S6 FDCOPY ; ; 00001443 1 0367 FDENTRYLENGTH ; 00001444 1 0368 ;;;;;;;;;;;;;;;;;;;;;;┆
0x36a00…36a80 UnusedSector ┆;;;;;;;;;;;;;;; ; 00001445 1 0368 ; LOAD BOOT_FILE ; ; 00001446 1 0368 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001447 1 036┆
0x36a80…36b00 UnusedSector ┆8 MOVC 0 R6 ; ; 00001448 1 0369 MOV R6 FD20CTL ; RISE 1ST TIME FLAG; ; 00001449 1 036A MOVC FDDIRBUF R5 ; POINT DIRECTORY_ENTR┆
0x36b00…36b80 UnusedSector ┆Y; ; 00001450 1 036B MOVL FDLOAD.X5 R01 ; GET LOAD_ADDRESS, PAGE ; 00001451 1 036C MOVL R01 FDCLOAD.X6 ; INITIALIZE ; 0000145┆
0x36b80…36c00 UnusedSector ┆2 1 036D MOVC FDENTRYLENGTH-1 R3 ; FOR I:=1 UNTIL ENTRY_LENGTH ; 00001453 1 036E FD1020: ; DO ; 00001454 1 036E ADD 0. X5 R6 ;┆
0x36c00…36c80 UnusedSector ┆ COMPUTE DIR_ENTRY CHECKSUM; ; 00001455 1 036F ADDC 1 R5 ; ; 00001456 1 0370 SOB R3 FD1020 ; END SUMMING UP; ; 00001457 1 037┆
0x36c80…36d00 UnusedSector ┆1 INE R6 0. X5 ; IF DISCREPANCY ; 00001458 1 0372 JMP FDENTRYERROR ; 00001459 1 0373 ; ; 00001460 1 0373 MOVC FDDIRBUF R5 ; P┆
0x36d00…36d80 UnusedSector ┆OINT BOOT DIRECTORY BUFFER; ; 00001461 1 0374 FD1040: ; REPEAT ; 00001462 1 0374 MOV R3 FDBLOCKNO ; SAVE BLOCKNO ; 00001463 1┆
0x36d80…36e00 UnusedSector ┆ 0375 JMPI S6 FDREADBLOCK; GET NEXT BLOCK TO MEM_BUFFER; ; 00001464 1 0376 MOV FDBLOCKNO R3 ; ; 00001465 1 0377 INEP R3 FDHIBL┆
0x36e00…36e80 UnusedSector ┆K.X5 ; TEST IF LAST AREA (BLOCK) ; 00001466 1 0379 ADDC 1 R3 ; ; 00001467 1 037A JMP FD1040 ; UNTIL ALL BLOCKS DONE; ; 000014┆
0x36e80…36f00 UnusedSector ┆68 1 037B ; ; 00001469 1 037B JMPI S6 FDTRANSFER ; LAST_TRANSFER; ; 00001470 1 037C JMPI S6 FDCOPY ; REMEMBER COPYING LAST SEC┆
0x36f00…36f80 UnusedSector ┆TOR; ; 00001471 1 037D 64 ; ; 00001472 1 037E ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001473 1 037E ; FILE LOADED, VALIDATE┆
0x36f80…37000 UnusedSector ┆ CHECKSUM ; ; 00001474 1 037E ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001475 1 037E MOV XBASE R1 ; ; 00001476 1 037F SVS R4┆
0x37000…37080 UnusedSector ┆ ; "OWN" PSW; ; 00001477 1 0380 MOV FDLOAD.X5 R6 ; GET FILE LOAD ADDRESS (START) ; 00001478 1 0381 MOV FDPAGE.X5 R7 ; GET CORR┆
0x37080…37100 UnusedSector ┆ESPONDING PAGE; ; 00001479 1 0382 IOR R4 R7 ; COMPUTE RELEVANT PSW; ; 00001480 1 0383 MOV FDCOUNT.X5 R3 ; FOR I:=1 UNTIL FILE_┆
0x37100…37180 UnusedSector ┆LENGTH ; 00001481 1 0384 IEQ R3 0 ; ; 00001482 1 0385 JMP FD1060 ; ; 00001483 1 0386 MOVC 0 R0 ; ; 00001484 1 0387 LDS R7 ; ┆
0x37180…37200 UnusedSector ┆; 00001485 1 0388 FD1050: ; DO ; 00001486 1 0388 MODN R1 ; 00001487 1 0389 ADD 0. X6 R0 ; COMPUTE CHECKSUM; ; 00001488 1 038┆
0x37200…37280 UnusedSector ┆A ADDC 1 R6 ; ; 00001489 1 038B IEQP R6 0 ; IF PAGE BOUNDARY ; 00001490 1 038C ADDC & 1<2 R7 ; THEN ADJUST (NEGLECT CARRY) ; ┆
0x37280…37300 UnusedSector ┆00001491 1 038D LDS & R7 ; TO NEXT MEMORY SECTION; ; 00001492 1 038E SOB R3 FD1050 ; END COMPUTING CHECK-SUM; ; 00001493 1 038┆
0x37300…37380 UnusedSector ┆F ; ; 00001494 1 038F LDS R4 ; RETURN "OWN" MEMORY SECTION; ; 00001495 1 0390 INE R0 FDCHECKSUM.X5; BEWARE CHECKSUM_ERROR; ; ┆
0x37380…37400 UnusedSector ┆DC 1 R5 ; ; 00001427 1 0358 SOB R3 FD1010 ; ; 00001428 1 0359 MOVC FDBENTRY R5 ; POINT BOOT_ENTRY DESCRIPTOR; ; 00001429 1 03┆
0x37400…37480 UnusedSector ┆53 1 03C9 ; R6 LINK DESTROYED ; 00001554 1 03C9 ; R0-2,4,7 - DESTROYED ; 00001555 1 03C9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x37480…37500 UnusedSector ┆ ; 00001556 1 03C9 ; ; 00001557 1 03C9 FD2000: ;FD_READ_BLOCK: ; 00001558 1 03C9 MOV R6 FD20SV ; ; 00001559 1 03CA MOV R5 R6┆
0x37500…37580 UnusedSector ┆ ; ; 00001560 1 03CB MOV FDBLOCKS.X5 R1 ; GET BLOCKS_PER_AREA; ; 00001561 1 03CC IEQ R1 0 ; ; 00001562 1 03CD JMP S6 FDENTRYE┆
0x37580…37600 UnusedSector ┆RROR; ; 00001563 1 03CE ; ; 00001564 1 03CE MOVC FDAREAS R2 ; ; 00001565 1 03CF FD2010: ; COMPUTE ; 00001566 1 03CF ILT R3 R┆
0x37600…37680 UnusedSector ┆1 ; OFF_SET:= ; 00001567 1 03D0 JMP FD2020 ; ; 00001568 1 03D1 SUB R1 R3 ; BLOCK_NO MOD BLOCKS_PER_AREA; ; 00001569 1 03D2 AD┆
0x37680…37700 UnusedSector ┆00001496 1 0392 JMP FDCHECKSUMERROR ; 00001497 1 0393 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001498 1 0393 ; FILE CHECKED: ┆
0x37700…37780 UnusedSector ┆OK - GET BASE, PAGE ; ; 00001499 1 0393 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001500 1 0393 FD1060: ; 00001501 1 0393 JMP┆
0x37780…37800 UnusedSector ┆I S4 OUTSTRING, <:, BASE= :>, EOT ; 00001502 1 0399 MOV FDBASE.X5 R0 ; ; 00001503 1 039A JMPI S6 OUTHEXA ; ; 00001504 1 039B ┆
0x37800…37880 UnusedSector ┆MOVL FDPAGE.X5 R23 ; GET PAGE, BASE ; 00001505 1 039C SVS R7 ; ; 00001506 1 039D IOR R7 R2 ; COMPUTE RELEVANT PSW; ; 00001507┆
0x37880…37900 UnusedSector ┆ 1 039E JMPI FD10SV ; RETURN CALLER ; 00001508 1 039F ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x37900…37980 UnusedSector ┆ 00001509 1 039F FDENTRYERROR: ; 00001510 1 039F JMPI S4 OUTSTRING, <:, ENTRY:>, EOT ; 00001511 1 03A5 JMP FD1080 ; ; 000015┆
0x37980…37a00 UnusedSector ┆12 1 03A6 FDCHECKSUMERROR: ; 00001513 1 03A6 JMPI S4 OUTSTRING, <:, CHECKSUM:>, EOT ; 00001514 1 03AD FD1080: ; ; 00001515 1 ┆
0x37a00…37a80 UnusedSector ┆03AD JMPI S4 OUTSTRING, <: ERROR:>, EOT ; 00001516 1 03B2 JMP FD1099 ; 00001517 1 03B3 ; 00001518 1 03B3 ;;;;;;;;;;;;;;;;;;;;┆
0x37a80…37b00 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001519 1 03B3 ; DEVICE ERROR ; 00001520 1 03B3 ;;;;;;;;;;;;;;;;;;;;;;;┆
0x37b00…37b80 UnusedSector ┆;;;;;;;;;;;;;; ; 00001521 1 03B3 DMAERROR: ;DMA_ERROR: ; 00001522 1 03B3 MOV R2 R5 ; ; 00001523 1 03B4 JMPI S4 OUTSTRING, <:,┆
0x37b80…37c00 UnusedSector ┆ DMA:>, EOT ; 00001524 1 03B9 JMP FD1090 ; ; 00001525 1 03BA FDDISKERROR: ; 00001526 1 03BA MOV R2 R5 ; ; 00001527 1 03BB JM┆
0x37c00…37c80 UnusedSector ┆PI S4 OUTSTRING, <:, DISK:>, EOT ; 00001528 1 03C0 FD1090: ;ERROR_RETURN ; 00001529 1 03C0 JMPI S4 OUTSTRING, <: ERROR=:>, EOT┆
0x37c80…37d00 UnusedSector ┆ ; 00001530 1 03C6 MOV R5 R0 ; ; 00001531 1 03C7 JMPI S6 OUTHEXA ; ; 00001532 1 03C8 FD1099: JMP UT1050 ;***RETURN MAIN_LINE;┆
0x37d00…37d80 UnusedSector ┆ ; 00001533 1 03C9 ;FF ; 00001534 1 03C9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001535 ┆
0x37d80…37e00 UnusedSector ┆1 03C9 ; PROCEDURE FD_READ_BLOCK I:(REF(DIR_ENTRY)); ; 00001536 1 03C9 ; ; 00001537 1 03C9 ; THIS PROCEDURE SUPPORTS THE CR806┆
0x37e00…37e80 UnusedSector ┆2 FD CONTROLLER. THE CONTROLLER ; 00001538 1 03C9 ; WORKS WITH A 64 WORD BUFFER. ; 00001539 1 03C9 ; THE PROCEDURE COPIES ALL ┆
0x37e80…37f00 UnusedSector ┆BUT THE LAST SECTOR OF A BLOCK TO THE ; 00001540 1 03C9 ; DEDICATED OUTPUT AREA VIA ITS MEMORY_BUFFER. ; 00001541 1 03C9 ; ; ┆
0x37f00…37f80 UnusedSector ┆00001542 1 03C9 ; HIERARCHY: ; 00001543 1 03C9 ; FILE/AREA[1:10]/BLOCK[1:-]/SECTOR[1:64]/WORD[1:16]/BIT ; 00001544 1 03C9 ; TH┆
0x37f80…38000 UnusedSector ┆E RELETION BETWEEN PHYSICAL AND LOGICAL SECTORS ARE: ; 00001545 1 03C9 ; TRACK 0: 2, 4,..., 26, 1, 3,..., 25 ; 00001546 1 03C9┆
0x38000…38080 UnusedSector ┆ ; TRACK 1: 8, 10,..., 6, 7, 9,..., 5 ; 00001547 1 03C9 ; . ; 00001548 1 03C9 ; TRACK 5: 6, 8,... ; 00001549 1 03C9 ; . UNTIL┆
0x38080…38100 UnusedSector ┆ TRANCK 76 ; 00001550 1 03C9 ; ; 00001551 1 03C9 ; R3 BLOCK_NO DESTROYED ; 00001552 1 03C9 ; R5 REF(DIR_ENTRY) KEPT ; 000015┆
0x38100…38180 UnusedSector ┆OUS COMMAND; ; 00001612 1 03F6 MOV FDTRACK R2 ; ; 00001613 1 03F7 ADDC FDSEEK R2 ; ESTABLISH SEEK; ; 00001614 1 03F9 JMPI S6 ┆
0x38180…38200 UnusedSector ┆FDCONTROL ; ; 00001615 1 03FA ; END ESTABLISHING NEW TRACK; ; 00001616 1 03FA FD2080: ; REPEAT ; 00001617 1 03FA JMPI S6 FDTR┆
0x38200…38280 UnusedSector ┆ANSFER ; GET DATA INTO MOMORY_BUFFER; ; 00001618 1 03FB MOV R0 R2 ; ; 00001619 1 03FC XTR R2 8 ; ISOLATE LOGICAL_SECTOR_NO; ; ┆
0x38280…38300 UnusedSector ┆ 00001620 1 03FD ADD R3 R2 ; ADJUST FOR TRACK_OFFSET; ; 00001621 1 03FE ; PHYSICAL_SECTOR_NO:= ; 00001622 1 03FE ADD R2 R2 ; (┆
0x38300…38380 UnusedSector ┆(2*(TRACK_OFFSET_LOG_SECT)); 00001623 1 03FF IGE R2 53 ; ; 00001624 1 0401 ADDC -52 R2 ; MOD 53; ; 00001625 1 0402 IGE R2 27 ┆
0x38380…38400 UnusedSector ┆; ; 00001626 1 0404 ADDC -27 R2 ; MOD 27; ; 00001627 1 0405 ADDC FDREAD R2 ; SET-UP PROPER READ_COMMAND;; 00001628 1 0407 JMP┆
0x38400…38480 UnusedSector ┆I S6 FDCONTROL ; CONTROL(READ, SECTOR); ; 00001629 1 0408 MOV FD20CTL R4 ; GET 1ST TIME FLAG; ; 00001630 1 0409 INEP R4 0 ; IF┆
0x38480…38500 UnusedSector ┆ COPY DATA FROM LAST READ ; 00001631 1 040A JMPI & S6 FDCOPY ; THEN DO SO; ; 00001632 1 040B 64 ; ; 00001632 1 040C**********┆
0x38500…38580 UnusedSector ┆************************** A ************************************ MODE-WRN 301 ; 00001633 1 040C MOV R6 FD20CTL ; ; 00001634 1┆
0x38580…38600 UnusedSector ┆ 040D ;NEXT_SEGMENT: ; 00001635 1 040D ADDC -1 R1 ; ; 00001636 1 040E SGE R1 1 ; * PERFORM OUTHER LOOP_CONTROL ; 00001637 1 0┆
0x38600…38680 UnusedSector ┆40F JMPI FD20SV ; * IF DONE RETURN CALLER; ; 00001638 1 0410 ; ; 00001639 1 0410 ADDC 256 -26 R0 ; ADJUST TRACK/SECTOR_NO; ; ┆
0x38680…38700 UnusedSector ┆DC 1 R6 ; ADJUST AREA_REFERENCE; ; 00001570 1 03D3 SOB R2 FD2010 ; ; 00001571 1 03D4 JMP S6 FDENTRYERROR; TOO HIGH BLOCK_NO: E┆
0x38700…38780 UnusedSector ┆NTRY)ERR; ; 00001572 1 03D5 FD2020: ; 00001573 1 03D5 MOV FDSECTORS.X5 R1 ; GET SECTORS_PER_BLOCK; ; 00001574 1 03D6 MOV FDAR┆
0x38780…38800 UnusedSector ┆EA.X6 R0 ; GET AREA'S START LOG_SECTOR_NO; ; 00001575 1 03D7 IEQ R0 -1 ; IF NOT USED ; 00001576 1 03D8 JMP S6 FDENTRYERROR; TH┆
0x38800…38880 UnusedSector ┆EN ENTRY_ERROR; ; 00001577 1 03D9 JOZ R3 FD2060 ; IF .NOT. 1ST BLOCK IN AREA ; 00001578 1 03DA MOV R0 R2 ; ; 00001579 1 03DB ┆
0x38880…38900 UnusedSector ┆XTR R2 8 ; ISOLATE LOGICAL_SECTOR_NO; ; 00001580 1 03DC SWP R0 ; POSITION TRACK_NO; ; 00001581 1 03DD FD2030: ; COMPUTE ; 000┆
0x38900…38980 UnusedSector ┆01582 1 03DD ADD R1 R2 ; 1ST_SEC+BLOCK*SEC'S_PER_BL'K; 00001583 1 03DE SOB R3 FD2030 ; ; 00001584 1 03DF FD2040: ; COMPUTE ; ┆
0x38980…38a00 UnusedSector ┆00001585 1 03DF ILT R2 27 ; ; 00001586 1 03E1 JMP FD2050 ; ; 00001587 1 03E2 ADDC 1 R0 ; ADJUST TRACK_NUMBER; ; 00001588 1 03┆
0x38a00…38a80 UnusedSector ┆E3 ADDC -26 R2 ; ADJUST SECTOR_NO ; 00001589 1 03E4 JMP FD2040 ; END ADJUSTING TRACK/SECTOR; ; 00001590 1 03E5 FD2050: ; ; 00┆
0x38a80…38b00 UnusedSector ┆001591 1 03E5 SLL R0 8 ; POSITION TRACK, ZERO SECTOR; ; 00001592 1 03E6 IOR R2 R0 ; INSERT LOGICAL_SECTOR_NO; ; 00001593 1 03E┆
0x38b00…38b80 UnusedSector ┆7 FD2060: ;SEEK_TRACK: ; 00001594 1 03E7 ; R0 - TRACK,/LOGICAL_SECTOR_NO ; 00001595 1 03E7 ; R1 - SECTORS PER BLOCK ; 0000159┆
0x38b80…38c00 UnusedSector ┆6 1 03E7 ; REPEAT ; 00001597 1 03E7 MOV R0 R2 ; TRACK_OFFSET:= ; 00001598 1 03E8 SRL R2 7 ; (TRACK_NO*2 ; 00001599 1 03E9 MOV┆
0x38c00…38c80 UnusedSector ┆ R2 R3 ; ; 00001600 1 03EA ADD R2 R3 ; ; 00001601 1 03EB ADD R2 R3 ; *3) ; 00001602 1 03EC FD2070: IGEP R3 26 ; ; 00001603 1┆
0x38c80…38d00 UnusedSector ┆ 03EE ADDC -26 R3 ; MOD 26; ; 00001604 1 03EF JMP FD2070 ; ; 00001605 1 03F0 ; ; 00001606 1 03F0 SRL R2 1 ; ISOLATE TRACK_NO;┆
0x38d00…38d80 UnusedSector ┆ ; 00001607 1 03F1 MOV FDTRACK R6 ; ; 00001608 1 03F2 IEQ R2 R6 ; IF NEW TRACK .NOT. CURRENT ; 00001609 1 03F3 JMP FD2080 ; T┆
0x38d80…38e00 UnusedSector ┆HEN ; 00001610 1 03F4 MOV R2 FDTRACK ; ESTABLISH AS CURRENT TRACK; ; 00001611 1 03F5 JMPI S6 FDWAITCMDCOMPLETE; COMPLETE PREVI┆
0x38e00…38e80 UnusedSector ┆7 <:X:>-<:O:>; IF DIRECT TRANSFER ; 00001664 1 041B JMP FD3050 ; THEN ; 00001665 1 041C MOV FDADR R7 ; GET FD DEVICE_ADDRESS; ┆
0x38e80…38f00 UnusedSector ┆; 00001666 1 041D FD3010: ; REPEAT ; 00001667 1 041D MODC 1<15 ; 00001668 1 041E SIO R2 R7 ; SENSE(ADDITIONAL_STATUS,DEV); 0┆
0x38f00…38f80 UnusedSector ┆0001669 1 041F IBN R2 BIT6 ; TEST DEVICE STILL BUSY; ; 00001670 1 0420 JMP FD3010 ; UNTIL FORMATTER READY; ; 00001671 1 0421 ;┆
0x38f80…39000 UnusedSector ┆ ; 00001672 1 0421 MOVC FDMEMBUF R2 ; POINT DEDICATED MEMORY BUFFER;; 00001673 1 0423 MOVC 64 R4 ; FOR I:=1 UNTIL BLOCK_SIZE ;┆
0x39000…39080 UnusedSector ┆ 00001674 1 0424 FD3020: ; DO ; 00001675 1 0424 RIO X2 R7 ; READ(BUFFER_WORD, DEVICE); ; 00001676 1 0425 ADDC 1 R2 ; ; 00001┆
0x39080…39100 UnusedSector ┆677 1 0426 SOB R4 FD3020 ; END_FOR_UNTIL; ; 00001678 1 0427 ; ; 00001679 1 0427 SIO R2 R7 ; SENSE(STATUS, DEVICE); ; 00001680┆
0x39100…39180 UnusedSector ┆ 1 0428 JMP FD3060 ; ELSE ; 00001681 1 0429 FD3050: ; REPEAT ; 00001682 1 0429 JMP S6 DMA ; DMA: SENSE REMOTE FD ; 00001683 1┆
0x39180…39200 UnusedSector ┆ 042A 2,#8000+FD,DMSMODE,XR0,DMMEMMODE,DMINPUT ; 00001684 1 0430 IBN X4 BIT6 ; TEST REMOTE FORMATTER BUSY; ; 00001685 1 0431 J┆
0x39200…39280 UnusedSector ┆MP FD3050 ; UNTIL FORMATTER READY ; 00001686 1 0432 JMP S6 DMA ; DMA: READ 64 WORDS FROM REM.FD; 00001687 1 0433 128,FD,DMRMOD┆
0x39280…39300 UnusedSector ┆E,FDMEMBUF,DMMEMMODE,DMINPUT ; 00001688 1 0439 JMP S6 DMA ; DMA: SENSE REMOTE FD ; 00001689 1 043A 2,FD,DMSMODE,XR2,DMMEMMODE,┆
0x39300…39380 UnusedSector ┆DMINPUT ; 00001690 1 0440 MOV XR2 R2 ; GET PRESENT STATUS; ; 00001691 1 0441 FD3060: ; END TRANSFERING SECTOR; ; 00001692 1 0┆
0x39380…39400 UnusedSector ┆441 IBN R2 BIT0 ; RESET ; 00001693 1 0442 ADDC #FFFF R2 ; BIT0 ONLY; ; 00001694 1 0443 IEQ R2 0 ; IF TRANSFER COMPLETE ; 0000┆
0x39400…39480 UnusedSector ┆1695 1 0444 JMPI FD30SV ; RETURN CALLER AS DONE; ; 00001696 1 0445 ; ELSE ; 00001697 1 0445 IBZ R2 BIT7 ; IF .NOT. DISK_CHANGE┆
0x39480…39500 UnusedSector ┆.OR.OVERRUN ; 00001698 1 0446 JMP FDDISKERROR; THEN ; 00001699 1 0447 MOVC FDRESTORE R2 ; SET-UP FD_RESTORE: ; 00001700 1 044┆
0x39500…39580 UnusedSector ┆9 JMPI S6 FDCONTROL ; STEP DRIVE OUT 79 TIMES TO ; 00001701 1 044A ; USE TRACK_00 FOR RESYNC; ; 00001702 1 044A JMPI S6 FDWAIT┆
0x39580…39600 UnusedSector ┆CMDCOMPLETE; COMPLETE PREVIOUS COMMAND; ; 00001703 1 044B MOVC FDRECOUNT R6 ; ; 00001704 1 044C INC 0. X6 ; MAINTAIN RESTORE_C┆
0x39600…39680 UnusedSector ┆OUNT; ; 00001705 1 044D IBZ X6 BIT7 ; CONTINUATION ALLOWED ; 00001706 1 044E JMP FD2060 ; AS LONG AS BELOW 128; ; 00001707 1 ┆
0x39680…39700 UnusedSector ┆00001640 1 0411 IBNP R0 BIT7 ; CHECK IF NEXT TRACK ; ; 00001641 1 0412 ADDC -256 +27 R0 ; ; 00001642 1 0413 JMP FD2080 ; UNTIL┆
0x39700…39780 UnusedSector ┆ SEC'S THIS TRACK DONE; ; 00001643 1 0414 ADDC 1 R0 ; NOTE: START SECTOR 1, NOT 0; ; 00001644 1 0415 JMP FD2060 ; UNTIL AREA D┆
0x39780…39800 UnusedSector ┆ONE (ALL BLOCKS); ; 00001645 1 0416 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001646 1 0416 ┆
0x39800…39880 UnusedSector ┆;FF ; 00001647 1 0416 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001648 1 0416 ; PROCEDURE F┆
0x39880…39900 UnusedSector ┆D_TRANSFER I:(REF(BUFFER)); ; 00001649 1 0416 ; WAIT FOR I/F TO GO READY; ; 00001650 1 0416 ; TRANSFER DATA FROM I/F BUFFER TO┆
0x39900…39980 UnusedSector ┆ MEMORY; ; 00001651 1 0416 ; R2,4,7 - DESTROYED ; 00001652 1 0416 ; R6 LINK KEPT ; 00001653 1 0416 ; USING: XR0(X4), XR2(R2) ┆
0x39980…39a00 UnusedSector ┆; 00001654 1 0416 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001655 1 0416 ; ; 00001656 1 0416 ;FD_WAIT_COMMAND_COMPLETE: ; 0┆
0x39a00…39a80 UnusedSector ┆0001657 1 0416 FD3000: ;FD_TRANSFER: ; 00001658 1 0416 MOV R6 FD30SV ; ; 00001659 1 0417 MOVC 60 R4 ; ; 00001660 1 0418 SOB R┆
0x39a80…39b00 UnusedSector ┆4 LOC ; WAIT 60-120 USEC; ; 00001661 1 0419 ; ; 00001662 1 0419 MOV FDMODE R7 ; GET MODE_OF_OPERATION ; 00001663 1 041A IEQ R┆
0x39b00…39b80 UnusedSector ┆_DESCRIPTOR ; 00001716 1 0451 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001717 1 0451 ; ; 00001718 1 0451 FD3100: ;FD_COPY: ;┆
0x39b80…39c00 UnusedSector ┆ 00001719 1 0451 SVP ; ; 00001720 1 0452 SVS R2 ; GET OWN PSW; ; 00001721 1 0453 ;NOTE HAS TO BE MEM_SECTION 0; ; 00001722 1┆
0x39c00…39c80 UnusedSector ┆ 0453 MOV XBASE R4 ; AND BASE; ; 00001723 1 0454 MOVC FDMEMBUF R5 ; POINT FD MEM_BUFFER; ; 00001724 1 0456 MOV FDCPAGE R3 ; GE┆
0x39c80…39d00 UnusedSector ┆T CURRENT OUTPUT PAGE; ; 00001725 1 0457 IOR R2 R3 ; ESTABLISH NEW PSW THAT SECTION; ; 00001726 1 0458 MOV FDCLOAD R7 ; POINT ┆
0x39d00…39d80 UnusedSector ┆OUTPUT_AREA; ; 00001727 1 0459 MVP 0. X6 R1 ; FOR I:=1 UNTIL BUFFER_SIZE ; 00001728 1 045A FD3120: ; DO ; 00001729 1 045A MOV┆
0x39d80…39e00 UnusedSector ┆ 0. X5 R0 ; GET NEXT WORD ; 00001730 1 045B LDS R3 ; SWITCH TO RELEVANT SECTION; ; 00001731 1 045C MODN R4 ; 00001732 1 045D ┆
0x39e00…39e80 UnusedSector ┆MOV R0 0. X7 ; INSERT WORD IN OUTPUT_AREA; ; 00001733 1 045E LDS R2 ; RETURN OWN PAGE; ; 00001734 1 045F INCD R5 R7 ; ADJUST P┆
0x39e80…39f00 UnusedSector ┆OINTERS; ; 00001735 1 0460 IEQ R7 0 ; IF PAGE BOUNDARY ; 00001736 1 0461 ADDC 1<2 R3 ; THEN SWITCH PAGE ; 00001737 1 0462 ; (┆
0x39f00…39f80 UnusedSector ┆NEGLECTING CARRY BIT); ; 00001738 1 0462 SOB R1 FD3120 ; UNTIL WHOLE BUFFER COPIED; ; 00001739 1 0463 MOV R7 FDCLOAD ; ; 0000┆
0x39f80…3a000 UnusedSector ┆1740 1 0464 MOV R3 FDCPAGE ; ; 00001741 1 0465 MOVC XR0 R7 ; RE-ESTABLISH ; 00001742 1 0466 UNS 7 ; ALL REGISTERS; ; 00001743┆
0x3a000…3a080 UnusedSector ┆ 1 0467 JMP 1. X6 ; RETURN CALLER; ; 00001744 1 0468 ;FF ; 00001745 1 0468 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x3a080…3a100 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;; 00001746 1 0468 ; PROCEDURE FD_CONTROL I:(COMMAND); ; 00001747 1 0468 ; R2 COMMAND<11+TRACK/SECTOR DES┆
0x3a100…3a180 UnusedSector ┆TROYED ; 00001748 1 0468 ; R6 LINK KEPT ; 00001749 1 0468 ; R7 - DESTROYED ; 00001750 1 0468 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x3a180…3a200 UnusedSector ┆;;;;; ; 00001751 1 0468 FD3500: ;FD_CONTROL: ; 00001752 1 0468 MOV FD10DRV R7 ; GET DRIVE NUMBER; ; 00001753 1 0469 SWP R7 ; ┆
0x3a200…3a280 UnusedSector ┆POSITION IN LEFTMOST BYTE; ; 00001754 1 046A ADD R7 R2 ; INSERT DRIVE_NO IN COMMAND; ; 00001755 1 046B MOV FDMODE R7 ; ; 0000┆
0x3a280…3a300 UnusedSector ┆1756 1 046C SNE R7 <:X:>-<:O:>; IF DIRECT FD_LOAD ; 00001757 1 046D JMP FD3580 ; THEN ; 00001758 1 046E MOV FDADR R7 ; GET DEV┆
0x3a300…3a380 UnusedSector ┆ICE ADDRESS; ; 00001759 1 046F CIO R2 R7 ; CONTROL(DATA, DEVICE); ; 00001760 1 0470 JMP X6 ; RETURN CALLER; ; 00001761 1 0471┆
0x3a380…3a400 UnusedSector ┆ FD3580: ; ELSE ; 00001762 1 0471 MOV R6 FD30SV ; ; 00001763 1 0472 MOV R2 XR2 ; ; 00001764 1 0473 JMP S6 DMA ; DMA: CONTROL ┆
0x3a400…3a480 UnusedSector ┆REMOTE DEVICE ; 00001765 1 0474 2,FD,DMCMODE,XR2,DMMEMMODE,DMOUTPUT ; 00001766 1 047A JMPI FD30SV ; RETURN CALLER; ; 00001767┆
0x3a480…3a500 UnusedSector ┆ 1 047B ; END CONTROLLING FD; ; 00001768 1 047B ;FF ; 00001769 1 047B ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x3a500…3a580 UnusedSector ┆;;;;;;;;;;;;;;;;;; 00001770 1 047B ; PROCEDURE DO_DMA (CNT, REM_ADR,REM_PAGE,LOC_ADR,LOC_PAGE,REQUEST); ; 00001771 1 047B ; R2┆
0x3a580…3a600 UnusedSector ┆ - DESTROYED ; 00001772 1 047B ; RL LINK DESTROYED ; 00001773 1 047B ; R7 - DESTROYED ; 00001774 1 047B ;;;;;;;;;;;;;;;;;;;;;┆
0x3a600…3a680 UnusedSector ┆;;;;;;;;;;;;;;;; ; 00001775 1 047B ; DMA IF CHARACTERISTICS ; 00001776 1 047B ;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001777 1 047B ; ┆
0x3a680…3a700 UnusedSector ┆044F MOVC #FFFF R2 ; SET-UP ERROR FLAG ; 00001708 1 0450 JMP FDDISKERROR; END DISK_ERROR HANDLING; ; 00001709 1 0451 ;FF ; 0┆
0x3a700…3a780 UnusedSector ┆0001710 1 0451 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001711 1 0451 ; PROCEDURE FD_MEM_COP┆
0x3a780…3a800 UnusedSector ┆Y ; 00001712 1 0451 ; R6 LINK KEPT ; 00001713 1 0451 ; R7 - DESTROYED ; 00001714 1 0451 ; ; 00001715 1 0451 ; USING: PROCESS┆
0x3a800…3a880 UnusedSector ┆T-UP ERROR MASK; ; 00001841 1 04A0 AND R2 R7 ; IF RESULT.>0 THEN ; 00001842 1 04A1 INE R7 0 ; IF RESULT<>0 THEN ; 00001843 1 ┆
0x3a880…3a900 UnusedSector ┆04A2 JMP DMAERR ;* DMA_ERROR; ; 00001844 1 04A3 MOV DMAADR R7 ; ; 00001845 1 04A4 IBN R2 DMNTEOB ; UNTIL STATUS.NOT_EOB ; 000┆
0x3a900…3a980 UnusedSector ┆01846 1 04A5 JMP DMA10 ; GOES LOW (EOB); ; 00001847 1 04A6 MODC DMSTOP ; 00001848 1 04A7 WIO R2 R7 ; OUTPUT(CMD, -, DEVICE); ;┆
0x3a980…3aa00 UnusedSector ┆; 00001778 1 047B ;DMA_STATUS: ; 00001779 1 047B DMRQSNT= 3 ; REQUEST SENT ; 00001780 1 047B DMNTEOB= 5 ; NOT_EOB ; 00001781┆
0x3aa00…3aa80 UnusedSector ┆ 1 047B DMERRM1= 1<6 OR % ; STOPPED ; 00001782 1 047B 1<7 OR % ; REMOTE TIME-OUT ; 00001783 1 047B 1<8 OR % ; LOCAL TIME-OUT ;┆
0x3aa80…3ab00 UnusedSector ┆ 00001784 1 047B 1<9 ; PARITY ERROR ; 00001785 1 047B ;DMA_COM'DS: ; 00001786 1 047B DMLDBC= 0<8 ; LOAD BYTE COUNT ; 0000178┆
0x3ab00…3ab80 UnusedSector ┆7 1 047B DMLDAD= 1<8 ; LOAD ADDRESS ; 00001788 1 047B DMLDPG= 2<8 ; LOAD PAGE ; 00001789 1 047B DMSNRQ= 3<8 ; SEND REQUEST ; ┆
0x3ab80…3ac00 UnusedSector ┆00001790 1 047B DMSTART= 5<8 ; START DMA ; 00001791 1 047B DMSTOP= 6<8 ; STOP DMA ; 00001792 1 047B DMRESET= 7<8 ; RESET DMA I┆
0x3ac00…3ac80 UnusedSector ┆F ; 00001793 1 047B DMRMBC= 8<8 ; LOAD REMOTE BYTE COUNT ; 00001794 1 047B DMRMAD= 9<8 ; LOAD REMOTE ADDRESS ; 00001795 1 047┆
0x3ac80…3ad00 UnusedSector ┆B DMRMPG= 10<8 ; LOAD REMOTE PAGE ; 00001796 1 047B ; ; 00001797 1 047B DMINPUT= 2#01 ; INPUT REQUEST, TYPE 0 ; 00001798 1 04┆
0x3ad00…3ad80 UnusedSector ┆7B DMOUTPUT= 2#00 ; OUTPUT REQUEST, TYPE 0 ; 00001799 1 047B DMMEMMODE= #302 ; MEMORY MODE: LOWER BYTE, PAGE 0 ; 00001800 1 04┆
0x3ad80…3ae00 UnusedSector ┆7B DMSMODE= #2 ; SENSE IO MODE ; 00001801 1 047B DMCMODE= #2 ; CONTROL IO MODE ; 00001802 1 047B DMRMODE= #6 ; READ IO MODE ; ┆
0x3ae00…3ae80 UnusedSector ┆ 00001803 1 047B ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001804 1 047B DMA: ;DMA: ; 00001805 1 047B DMA00: ; REPEAT ; 00001┆
0x3ae80…3af00 UnusedSector ┆806 1 047B MOV DMAADR R7 ; GET DEVICE ADDRESS; ; 00001807 1 047C MOVC DMOUTPUT R2 ; SET-UP CONTROL ; 00001808 1 047D MODC DMSN┆
0x3af00…3af80 UnusedSector ┆RQ ; 00001809 1 047E WIO R2 R7 ; OUTPUT(CMD, CTL, DEVICE); ; 00001810 1 047F MOVC 0 R2 ; WAIT ; 00001811 1 0480 MOVC 0 R2 ; 2┆
0x3af80…3b000 UnusedSector ┆ USEC; ; 00001812 1 0481 RIO R2 R7 ; INPUT(STATUS, DEVICE); ; 00001813 1 0482 IBZ R2 DMRQSNT ; UNTIL REQUEST ; 00001814 1 048┆
0x3b000…3b080 UnusedSector ┆3 JMP DMA00 ; ACCEPTED; ; 00001815 1 0484 MVP 0. X6 R2 ; GET COUNT_FIELD; ; 00001816 1 0485 MODC DMRMBC ; 00001817 1 0486 WIO┆
0x3b080…3b100 UnusedSector ┆ R2 R7 ; OUTPUT(CMD, COUNT, DEVICE); ; 00001818 1 0487 MVP 1. X6 R2 ; GET REMOTE_ADR; ; 00001819 1 0488 MODC DMRMAD ; 0000182┆
0x3b100…3b180 UnusedSector ┆0 1 0489 WIO R2 R7 ; OUTPUT(CMD, REM_ADR, DEVICE); ; 00001821 1 048A MVP 2. X6 R2 ; GET REMOTE_PAGE (MODE); ; 00001822 1 048B ┆
0x3b180…3b200 UnusedSector ┆MODC DMRMPG ; 00001823 1 048C WIO R2 R7 ; OUTPUT(CMD, REM_PAGE, DEVICE); ; 00001824 1 048D MVP 5. X6 R2 ; GET REQUEST_TYPE; ; ┆
0x3b200…3b280 UnusedSector ┆ 00001825 1 048E MODC DMSNRQ ; ); 1 048F WIO R2 R7 ; OUTPUT(CMD, SEND_REQUEST, DEVICE; 00001826 1 0490 MVP 0. X6 R2 ; GET COUN┆
0x3b280…3b300 UnusedSector ┆T ; 00001827 1 0491 MODC DMLDBC ; 00001828 1 0492 WIO R2 R7 ; OUTPUT(CMD% COUNT% DEVICE); ; 00001829 1 0493 MVP 3. X6 R2 ; GE┆
0x3b300…3b380 UnusedSector ┆T POINTER TO OUTPUT_AREA; ; 00001830 1 0494 ADD XBASE R2 ; ; 00001831 1 0496 MODC DMLDAD ; 00001832 1 0497 WIO R2 R7 ; OUTPUT┆
0x3b380…3b400 UnusedSector ┆(CMD, LOAD_ADDR, DEVICE); ; 00001833 1 0498 MVP 4. X6 R2 ; GET LOAD_PAGE; ; 00001834 1 0499 MODC DMLDPG ; 00001835 1 049A WIO┆
0x3b400…3b480 UnusedSector ┆ R2 R7 ; OUTPUT(CMD, LOAD_PAGE, DEVICE); ; 00001836 1 049B MODC DMSTART ; 00001837 1 049C WIO R2 R7 ; OUTPUT(CMD, -, DEVICE); ┆
0x3b480…3b500 UnusedSector ┆; 00001838 1 049D DMA10: ; REPEAT ; 00001839 1 049D RIO R2 R7 ; INPUT(STATUS, DEVICE); ; 00001840 1 049E MOVC DMERRM1 R7 ; SE┆
0x3b500…3b580 UnusedSector ┆ET MEMORY CLAIM SEMAPHORE; ; 00001894 1 04D1 MOVC 100 R6 ; ; 00001895 1 04D2 SOB R6 LOC ; WAIT 100-200 USEC; ; 00001896 1 04D┆
0x3b580…3b600 UnusedSector ┆3 RESS X6 BIT0 ; RESERVE MEMORY ; 00001897 1 04D4 JMP MCE10 ; (LOST: WAIT FOR CPU_INTERRUPT,; 00001898 1 04D5 ; WON: CONTINUE)┆
0x3b600…3b680 UnusedSector ┆; ; 00001899 1 04D5 MOV MSEC R6 ; ; 00001900 1 04D6 SOB R6 LOC ; WAIT 1 MSEC; ; 00001901 1 04D7 JMP MCE20 ; ; 00001902 1 04D┆
0x3b680…3b700 UnusedSector ┆8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001903 1 04D8 ; WAIT FOR WINNER'S CPU INTERRUPT ; ; 00001904 1 04D8 ;;;;;;;;;;;;;;┆
0x3b700…3b780 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;; ; 00001905 1 04D8 MCE10: ;LOOSER'S_FAITH: ; 00001906 1 04D8 MOV R1 XBASE ; ; 00001907 1 04D9 MOV R1 X┆
0x3b780…3b800 UnusedSector ┆MOD ; ; 00001908 1 04DA LDN R3 ;***ACTIVATE CPU WITH DUMMY PROCESS;; 00001909 1 04DB MCWAITCPU: ; 00001910 1 04DB LDM 2#101 ;┆
0x3b800…3b880 UnusedSector ┆ OPEN FOR CPU_INTERRUPTS ONLY; ; 00001911 1 04DC JMP LOC ; WAIT FOR INTERRUPT; ; 00001912 1 04DD ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x3b880…3b900 UnusedSector ┆;;;;;;;; ; 00001913 1 04DD ; INITIALIZE WINNING PROCESS ; ; 00001914 1 04DD ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001915 ┆
0x3b900…3b980 UnusedSector ┆1 04DD MCE20: ;INITIALIZE: ; 00001916 1 04DD MOVC XABS R7 ; FOR I:=1 UNTIL COUNT ; 00001917 1 04DE MCE30: ; DO ; 00001918 1 0┆
0x3b980…3ba00 UnusedSector ┆ 00001849 1 04A8 JMP 6. X6 ; RETURN CALLER; ; 00001850 1 04A9 NOLIST FI LIST ; 00001851 1 04A9 ;FF ; 00001852 1 04A9 ; E X ┆
0x3ba00…3ba80 UnusedSector ┆E R C I Z E O P T I O N S ; 00001853 1 04A9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001854┆
0x3ba80…3bb00 UnusedSector ┆ 1 04A9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 00001855 1 04A9 OPT00: ;OPTIONS: ; 00001856 ┆
0x3bb00…3bb80 UnusedSector ┆1 04A9 JMPI S6 OUTNL ; ; 00001857 1 04AA JMPI S4 OUTSTRING, <:PRINT-OUT ?<62>:>, EOT ; 00001858 1 04B3 JMPI S6 INCHAR ; ; 000┆
0x3bb80…3bc00 UnusedSector ┆01859 1 04B4 ADDC TRUE-YES R0 ; ; 00001860 1 04B5 MOV R0 PRINTOUT ; ; 00001861 1 04B6 ; ; 00001862 1 04B6 MOVC 0 R0 ; ; 0000┆
0x3bc00…3bc80 UnusedSector ┆1863 1 04B7 MOV R0 PGMNEXT ; RESET TEST_PGM_CONTROL; ; 00001864 1 04B8 ; ; 00001865 1 04B8 JMPI S6 OUTNL ; ; 00001866 1 04B9 ┆
0x3bc80…3bd00 UnusedSector ┆JMPI S4 OUTSTRING, <:NO OF TESTS <62>:>, EOT ; 00001867 1 04C2 JMPI S6 GETHEXA ; GET FIRST PART OF COUNT ; 00001868 1 04C3 MOV┆
0x3bd00…3bd80 UnusedSector ┆ R1 R3 ; ; 00001869 1 04C4 MOVC 0 R1 ; PRESET MOST SIGNIFICANT ; 00001870 1 04C5 INEP R0 CR ; IF LEAST SIGNIFICANT TOO ; 0000┆
0x3bd80…3be00 UnusedSector ┆1871 1 04C6 JMPI & S6 GETHEXA ; ; 00001872 1 04C7 XCH & R3 R1 ; POSITION; ; 00001873 1 04C8 ADDC -1 R3 ; ADJUST LEAST SIGNIFIC┆
0x3be00…3be80 UnusedSector ┆ANT PART; ; 00001874 1 04C9 IEQ R3 -1 ; IF LOWER PART OVERFLOW ; 00001875 1 04CA ADDC -1 R1 ; THEN ADJUST MOST SIGNIFICANT; ; ┆
0x3be80…3bf00 UnusedSector ┆ 00001876 1 04CB MOV R1 PGMLOOP+1 ; SAVE MOST SIGNIFICANT PART ; 00001877 1 04CC MOV R3 PGMLOOP ; LEAST SIGNIFICANT AS WELL; ; ┆
0x3bf00…3bf80 UnusedSector ┆ 00001878 1 04CD JMP UT1060 ; RETURN UTILITIES MAIN LINE; ; 00001879 1 04CE ;FF ; 00001880 1 04CE ; M A S T E R C L E A R E N┆
0x3bf80…3c000 UnusedSector ┆ T R Y P O I N T ; 00001881 1 04CE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001882 1 04CE ;┆
0x3c000…3c080 UnusedSector ┆ ENTRY POINT UPON MASTER CLEAR ; 00001883 1 04CE ; ; 00001884 1 04CE ; R2 POINTER PROMMED PROGRAM ; 00001885 1 04CE ; R4 PROG┆
0x3c080…3c100 UnusedSector ┆_REL ADDRESS OF AUTOMATIC SERVICE PROGRAM ; 00001886 1 04CE ; R5 POINTER PROMMED PROCESS_DESCRIPTOR ; 00001887 1 04CE ; R7 DEV┆
0x3c100…3c180 UnusedSector ┆ICE ADDRESS ; 00001888 1 04CE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001889 1 04CE ; ; 00001890 1 04CE MCENTRYPOINT: ;ENTR┆
0x3c180…3c200 UnusedSector ┆Y_POINT UPON MASTER CLEAR: ; 00001891 1 04CE SVP MCWAITCPU ; ; 00001892 1 04CF MOVC 0 R6 ; ; 00001893 1 04D0 MOV R6 XR0 ; RES┆
0x3c200…3c280 UnusedSector ┆MP TEC90 ; THEN ; 00001950 1 0504 TEC10: ; ; 00001951 1 0504 ; ; 00001952 1 0504 JMPI S6 GETADDRESS ; GET POSITION OF (PROMME┆
0x3c280…3c300 UnusedSector ┆D) ; 00001953 1 0505 ; CPU_TEST SEQUENCES; ; 00001954 1 0505 MOVC #1000 R3 ; SET-UP COUNT (4K PROM); ; 00001955 1 0507 MOVC 0┆
0x3c300…3c380 UnusedSector ┆ R0 ; OBJECT_SECTION 0; ; 00001956 1 0508 MOV TCBASE R1 ; GET "BASE" CPU_TEST PROGRAMS; ; 00001957 1 0509 SUB XBASE R1 ; MAKE ┆
0x3c380…3c400 UnusedSector ┆REL OWN BASE; ; 00001958 1 050B JMPI S6 COPY ; COPY CPU_TEST PROGRAMS ; 00001959 1 050C ; TO MEMORY #1000 UPWARDS; ; 00001960┆
0x3c400…3c480 UnusedSector ┆ 1 050C MOV XBASE R3 ; ; 00001961 1 050D MOV TCBASE R1 ; GET START OF CPU_TEST_PROGRAMS; ; 00001962 1 050E SUB R3 R1 ; SET-UP ┆
0x3c480…3c500 UnusedSector ┆CPU-TEST-"OWN=_BASE; ; 00001963 1 050F MOV TCBASE R2 ; ; 00001964 1 0510 SUB XPROG R2 ; SET-UP CPU_TEST-"OWN"_PROG; ; 0000196┆
0x3c500…3c580 UnusedSector ┆5 1 0512 MOV R1 R7 ; ; 00001966 1 0513 MOV 0. X7 R0 ; GET FIRST STATEMENT; ; 00001967 1 0514 INE R0 #0158 ; IF NOT 'JMP LOC' ;┆
0x3c580…3c600 UnusedSector ┆ 00001968 1 0516 JMPI ERROR ; THEN ERRORONEOUS MODULE; ; 00001969 1 0517 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001970 1 0┆
0x3c600…3c680 UnusedSector ┆517 ; RAM RESIDENT VERSION ACCEPTED ; ; 00001971 1 0517 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001972 1 0517 JMP S4 LOC+2 ;┆
0x3c680…3c700 UnusedSector ┆ BY-PASS INSTRUCTION; ; 00001973 1 0518 JMPI S4 OUTSTRING ; 00001974 1 0519 MVP 0. X4 R0 ; GET INSTRUCTION ; 00001975 1 051A ┆
0x3c700…3c780 UnusedSector ┆MOV R0 0. X7 ; INSERTED AS FIRST OF AREA; ; 00001976 1 051B MOV R2 R6 ; ; 00001977 1 051C JMP S5 LOC+1 ; ESTABLISH LINK BACK; ┆
0x3c780…3c800 UnusedSector ┆; 00001978 1 051D JMP X6 ; ACTIVATE RAM_RESIDING PART; ; 00001979 1 051E ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001980 1 0┆
0x3c800…3c880 UnusedSector ┆51E ;RETURN_FROM_CUP_TEST: ; 00001981 1 051E ; R0,4,6,7 DESTROYED ; 00001982 1 051E ; R4 REF CPU_TEST PROGRAM_TABLE ; 0000198┆
0x3c880…3c900 UnusedSector ┆3 1 051E ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 00001984 1 051E ; SET-UP CPU_TEST CONTROL ; ; 00001985 1 051E ;;;;;;;;;;;;;;;┆
0x3c900…3c980 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;; ; 00001986 1 051E ADD R1 R4 ; ADJUST REF(CPU_TEST_PGMS); ; 00001987 1 051F MOV R1 R7 ; ; 00001988 1 05┆
0x3c980…3ca00 UnusedSector ┆4DE MOVL 0. X5 R01 ; ; 00001919 1 04DF MOVL R01 0. X6 ; COPY ; 00001920 1 04E0 ADDC 2 R5 ; PROCESS ; 00001921 1 04E1 ADDC 2 R┆
0x3ca00…3ca80 UnusedSector ┆6 ; DESCRIPTOR; ; 00001922 1 04E2 SOB R7 MCE30 ; END FOR_UNTIL; ; 00001923 1 04E3 ; ; 00001924 1 04E3 JMPI S4 OUTSTRING, <:<1┆
0x3ca80…3cb00 UnusedSector ┆3>CSS/395/00 791011:>, EOT ; 00001925 1 04EF JMPI S4 OUTSTRING, <:<13>CPU :>, EOT ; 00001926 1 04F4 SVS R0 ; GET CURRENT PSW ;┆
0x3cb00…3cb80 UnusedSector ┆ 00001927 1 04F5 SWP R0 ; POSITION CPU-NO AS RIGHTMOST; ; 00001928 1 04F6 XTR R0 3 ; ISOLATE CPU NO; ; 00001929 1 04F7 ADDC <┆
0x3cb80…3cc00 UnusedSector ┆:0:> R0 ; CONVERT TO ASCII; ; 00001930 1 04F8 JMPI S6 OUTCHAR ; WRITE_CHAR; ; 00001931 1 04F9 JMP UT1050 ; ; 00001932 1 04FA ┆
0x3cc00…3cc80 UnusedSector ┆; 00001933 1 04FA MCE90: JMPI S6 UTILITIES ; ; 00001934 1 04FB JMP MCE90 ; ; 00001935 1 04FC ;///////////////////////////////┆
0x3cc80…3cd00 UnusedSector ┆////; END BASIC_INTITIALIZATION; ; 00001936 1 04FC ;FF ; 00001937 1 04FC ; I N I T I A L I Z E C P U T E S T P R O G R A M ; ┆
0x3cd00…3cd80 UnusedSector ┆ 00001938 1 04FC ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Q;;;;;;;;;;; ; 00001939 1 04FC ;;;;;;;;;;;;;;;;;;;;┆
0x3cd80…3ce00 UnusedSector ┆;;;;;;;;;;;;;;;;; ; 00001940 1 04FC ; ; 00001941 1 04FC TEC00: ;TEST_CPU: ; 00001942 1 04FC MOVC B5555 R5 ; ; 00001943 1 04F┆
0x3ce00…3ce80 UnusedSector ┆D MOVL 0. X5 R23 ; ; 00001944 1 04FE MOV P5555 R0 ; ; 00001945 1 04FF MOV PAAAA R1 ; ; 00001946 1 0500 INE R0 R2 ; IF B5555_F┆
0x3ce80…3cf00 UnusedSector ┆IELD NOT CORRECT ; 00001947 1 0501 JMP TEC10 ; .OR. ; 00001948 1 0502 SNE R1 R3 ; BAAAA_FIELD NOT CORRECT ; 00001949 1 0503 J┆
0x3cf00…3cf80 UnusedSector ┆002002 1 052D IBZ R0 BIT15 ; ; 00002003 1 052E JMP TEC20 ; UNTIL CPU_TEST AREA INITIALIZED;; 00002004 1 052F ; 00002005 1 052┆
0x3cf80…3d000 UnusedSector ┆F ; ; 00002006 1 052F MOVC 0 R7 ; ; 00002007 1 0530 MOV R7 PGMLOOP ; INITIALIZE COUNTERS ; 00002008 1 0531 MOV R7 PGMLOOP+1 ;┆
0x3d000…3d080 UnusedSector ┆ ; 00002009 1 0532 MOV R7 PGMNEXT ; AND CURRENT TEST PGM POINTER;; 00002010 1 0533 TEC90: JMPI S6 OUTNL ; ; 00002011 1 0534 ;┆
0x3d080…3d100 UnusedSector ┆CONTINUE WITH CPU_TEST MAIN_LINE: ; 00002012 1 0534 ;FF ; 00002013 1 0534 ; C P U T E S T P R O G R A M - M A I N L I N E ; ┆
0x3d100…3d180 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAI80: ; END TABLE_SCAN; MOVC 0 R6 ; RE-ADJUST TO TOP MOV R6 PGMNEXT ; PROGRAM_INDEX; MOVC P┆
0x3d180…3d200 UnusedSector ┆GMLOOP R6 ; REF(TEST_LOOP_COUNT); MOVL 0. X6 R01 ; GET NO_TEST LEFT (LONG INT); ADDC -1 R0 ; ADJUST LEAST SIGNIFICANT; IEQ R0┆
0x3d200…3d280 UnusedSector ┆ -1 ; IF LEAST_SIGN'T BELOW ADDC -1 R1 ; THEN ADJUST MOST_SIGNIFI'T; SNEP R0 -1 ; IEQ R1 -1 ; CPU_LOOP_TEST JMP TESTEND ; ;┆
0x3d280…3d300 UnusedSector ┆ MOVL R01 0. X6 ; SAVE; JMPI MAINLINE ; END CPU_TEST_LOOP; ;FF ; E N D P R O G R A M ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x3d300…3d380 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TESTEND: MOVC <:*:> R┆
0x3d380…3d400 UnusedSector ┆0 ; MOVC 44 R3 ; FOR I:=1 UNTIL 44 END10: ; DO JMPI S6 OUTCHAR ; WRITE_CHAR; SOB R3 END10 ; END FOR_UNTIL; JMPI S6 UTILITIE┆
0x3d400…3d480 UnusedSector ┆S ; JMPI MAINLINE ; ;----------------------------------------------------------------------- CMASK= #9401, PMASK= #FFFB ;FF┆
0x3d480…3d500 UnusedSector ┆ ENDOFPGM: PROGRAMSTART:= CPUPROM+PROGSTART PROGRAMGO:= PROGRAMSTART+MCENTRYPOINT IF LOC LT #0FE0 THEN #0000, REPEAT (#┆
0x3d500…3d580 UnusedSector ┆FE0-LOC) AN #7FF ELSE MESSAGE LOC FI RELPROMBASE= PROGRAMSTART+LOC-CPUBASE USE BASE IF LOC LT #1E #0000 IF LOC LT #1E REPEA┆
0x3d580…3d600 UnusedSector ┆T (#1E-LOC) FI FI PROGRAMSTART+EMERGENCY ; EMERGENCY ACTION SERVICE PROGRAM #0000 ; PROM CHECK-SUM BEGIN EXTERNAL EOT USE B┆
0x3d600…3d680 UnusedSector ┆ASE EXTERNAL TCREFWORK EXTERNAL B5555, BAAAA, CP06, CP20INS, CPWORK EXTERNAL CP46P, CP46 USE PROG EXTERNAL P5555, PAAAA NA┆
0x3d680…3d700 UnusedSector ┆MES END END I FI PROGRAMSTART+EMERGENCY ; EMERGENCY ACTION SERVICE PROGRAM #0000 ; PROM CHECK-SUM BEGIN EXTERNAL EOT USE B┆
0x3d700…3d780 UnusedSector ┆; ; ; MODC [M] C[N]8 ; ; MOD4 [M] C[N]8 ; ; MOD8 [M] C8 ; ; ; ;---------------------------------------; DAT01: #01, 9, #AAAA #0┆
0x3d780…3d800 UnusedSector ┆0FF, #FF01, #000F, #FFF1, #00FE, #FF55, #FFFF, #FFFF, #FEF1 TST01: ;MOVC MOVC C8 R4 ; WORD0: MOV R4 0. X6 ; MOVC CN8 R7 ; W┆
0x3d800…3d880 UnusedSector ┆ORD1: MOV R7 1. X6 ; ADDC 2 R6 ; MOVC C4 X6 ; WORD2: ADDC 1 R6 ; MOVC CN4 X6 ; WORD3: ADDC 1 R6 ; ;MODC MODC C8 ; WORD4:┆
0x3d880…3d900 UnusedSector ┆ MODC M-1 ; WORD4: MOVC 0 X6 ; MOD8 C8 ; WORD5: MODC M+#55 ; WORD5: MOVC 0 R0 ; MOD4 C8 ; WORD5: MOD8 M+#F0 ; WORD6: MOV┆
0x3d900…3d980 UnusedSector ┆C M+#000F R1 ; MOVL R01 1. X6 ; MOD4 CN8 ; WORD7: MOD4 M+#FE ; WORD7: MOVC M+#000F R0 ; MODC CN8 ; WORD8: MOD4 M-1 ; WORD8┆
0x3d980…3da00 UnusedSector ┆20 MOVC TCPOOL R6 ; ; 00001989 1 0521 TEC20: ; REPEAT ; 00001990 1 0521 MOVL 0. X4 R01 ; ; 00001991 1 0522 IEQ R0 #BE ; IF TE┆
0x3da00…3da80 UnusedSector ┆ST UNDEFINED (TRAP) ; 00001992 1 0524 SUB R0 R0 ; THEN FORCE DUMMY TEST; ; 00001993 1 0525 IEQ R0 0 ; IF DUMMY TEST ; 0000199┆
0x3da80…3db00 UnusedSector ┆4 1 0526 JMP TEC30 ; THEN ; 00001995 1 0527 IBZ R0 BIT15 ; IF NOT END_OF_TEST_FILE ; 00001996 1 0528 ADD R2 R0 ; ADJUST TO REL┆
0x3db00…3db80 UnusedSector ┆ "ACTUAL" PROG;; 00001997 1 0529 TEC30: ; END ADJUSTING PROG_REL; ; 00001998 1 0529 ADD R7 R1 ; ADJUST TO REL "ACTUAL" BASE; ;┆
0x3db80…3dc00 UnusedSector ┆ 00001999 1 052A MOVL R01 0. X6 ; MAKE ; 00002000 1 052B ADDC 2 R4 ; REFERENCES ; 00002001 1 052C ADDC 2 R6 ; RELATIVE; ; 00┆
0x3dc00…3dc80 UnusedSector 0x00[128]
0x3dc80…3dd00 UnusedSector ┆: MOVC 0 R1 ; MOVL R01 3. X6 ; ; JMP RETURNMAINLINE ; ;FF END D5: MOVC 0 R0 ; MOD4 C8 ; WORD5: MOD8 M+#F0 ; WORD6: MOV┆
0x3dd00…3dd80 UnusedSector 0x00[128]
[…0x1…]
0x3de00…3de80 UnusedSector ┆ ( , B ┆
0x3de80…3df00 UnusedSector ┆ &X q X m7 $ X w3O2 V n H (< H K z $D 0] J ]# J ]' J ]*K J ]- 3w( q*$ p)h i!┆
0x3df00…3df80 UnusedSector ┆O' h) o(J ]Aw2 yo) w)i* q X J ]LO (w @o,w. @l o O@ w @$ p%X w @p&X w @B O @ o @ y┆
0x3df80…3e000 UnusedSector ┆ q'X*o V @ P00000 ENTRYS N S ┆
0x3e000…3e080 UnusedSector ┆h & - 8 n r o p q m E ~ V t F T U b \ c ) G G ~ ┆
0x3e080…3e100 UnusedSector ┆w o o yV$O GV O | p o | X o ,h i D p V H O o Gh i X K _3 vX 4X _V WX X1k <V jN| ~ ┆
0x3e100…3e180 UnusedSector ┆| 2$ @D QpX M E SX s s X ^ X [ UX M F | / p BH w V V2H p p h | w H ┆
0x3e180…3e200 UnusedSector ┆h H yV o (@ U ; 3 F K Q0X m uu M@u # c 8 s V n// V O k V O G @ ┆
0x3e200…3e280 UnusedSector ┆X V N X k <V jn 2$ QpX @ RX Q X XK " @X} K H P N H Go @Pp V H V G } 8 R V H@ t┆
0x3e280…3e300 UnusedSector ┆TCPSRC 3, \ @ a b ; O W @ @ C @ ; RD6: MOVC M+#000F R1 ; MOV┆
0x3e300…3e380 UnusedSector ┆L R01 1. X6 ; MOD4 CN8 ; WORD7: MOD4 M+#FE ; WORD7: MOVC M+#000F R0 ; MODC CN8 ; WORD8: MOD4 M-1 ; WORD8: MOVC 0 R1 ; MOV┆
0x3e380…3e400 UnusedSector ┆L R01 3. X6 ; ; JMP RETURNMAINLINE ; ;FF $OC END MOVC 0 R0 ; MOD4 C8 ; WORD5: MOD8 M+#F0 ; WORD6: MOVC M+#000F R1 ; MOV┆
0x3e400…3e480 UnusedSector ┆J R IH ! \ I q N J * %X = E \ B X B }t Y 7] { { x x a e B H ┆
0x3e480…3e500 UnusedSector ┆@ ` } p } R e }t [ 6]6 = c 7 [ k - H ` | O'z z H@ N a X I r 1 'r XQ q _ ┆
0x3e500…3e580 UnusedSector ┆ Q v U q H C v N Q k]. M # x x 9 h B | ]b' ' 2 9 b]i 9 ; m P ┆
0x3e580…3e600 UnusedSector ┆ Q ]S " Z]t ]hK V nK 2 M -Y 0 V V@H I vU J } [ 6] = K ) L p {V I [ 7 B ┆
0x3e600…3e680 UnusedSector ┆ X B ; p H 2 c . 9 @ ] @ b a K V Z ' K B X qY k }] X ( @ ( V ┆
0x3e680…3e700 UnusedSector ┆] a] MM u m 9V a] A H NV V V 9 p }` ' ' J@X b V v H ' j $ ┆
0x3e700…3e780 UnusedSector ┆ | ZV 2 9 v ( J@X V V@H I tU J X U p2 yV o 9 K @ Y U zV o 9 V p+ V N ~V V w=O@V ┆
0x3e780…3e800 UnusedSector ┆w'V O G KV r 9V 9 V H 0 ! H " # 9K T V K }V fZ V 9 94 \ 9N x 9@ L V ┆
0x3e800…3e880 UnusedSector ┆ X L 5 M 9H0 @ X X v lM c a~ X lN ** SYNTAX Z ZK d ] u sJM hQkJF uJjQI ! , %B B DRIVE: lN Z [ 0 _ ]jP K ┆
0x3e880…3e900 UnusedSector 0x00[128]
