(GIN Macro)
Defined in: MISCMACS
Used in: BSPRUNE867, CHTAB, INCFIN864, INCTAPES867, INKS, LISTDIR867, LISTDIRF867, LOADERPM867, MESSAC, MESSAI, MESSBI, MESSCE, MESSCG, MESSCH, MESSCI, MESSI, PMCHAP867, PMDUMPMT85, SETPF867, WTSTAT867
6X9= ...[??? DUMP SECT DIAG FGN 5 DOC 6XNW #MAC DUMP [M.C.D. MANN 6Y8G [ 6YN6 [ 6^7Q [ ********** 6^MB [ * DUMP * 7272 [ ********** 72LL [ 736= [ 73KW [ THIS VERSION IS FOR MARK 8.20 (LOADER POST-MORTEM) 745G [ IT GIVES A DEFAULT "GEODUMP" FOR %C 74K6 [ AND CORRECTS THE MODE SEQUENCE ERROR 754Q [ AND UPDATES L-ALLOCATOR'S RECORD OF GEORGE'S LENGTH 75JB #STR %C 7642 #STR 76HL ( 773= DUMP %A,%B,GEODUMP,%D 77GW #CON GEORGE IS DUMPED IN SF GEODUMP 782G #CON BECAUSE NO SF NAME WAS GIVEN 78G6 #EXI 78^Q ) 79FB #MEN LOADERGO 79^2 #TRA BSVOL 7=DL +2?+127/128*128 [UPDATE LENGTH OF GEORGE 7=Y= #END 7?3B ...#MEN FIXED 7?6G ...#TRA ERRS 7?9L ... +694] 7?#Q ...#END 7?CW #OPT MLIST=1? 7?XG #LIS APDL 7#C6 #OFW MT%A %B 7#WQ #STR %D 7*BB ( 7*W2 #STR %D,T 7B*L #POS MT%A %D 7BT= #STR %D,T 7C#W #SKI 7CSG #POS MT%A 7D#6 ) 7DRQ #STR %D 7F?B #SKI 7FR2 #REW MT%A 7G=L [ INTERLUDE TO DUMP MT LOADER/ALLOCATOR AS FINDABLE BOOTSTRAP 7GQ= [ ON FRONT OF NORMAL COMPILATION DUMP 7H9W #DEF MODE=3? [REMEMBER MODE 7HPG #ORD 7J96 #STR %D 7JNQ ( 7K8B #STR %D,T 7KN2 ( 7L7L #INT 7LM= XHDDR 4HHDDR 7M6W XGEO3 12HGEO3 7MLG TREAD +5:0,+0,+20,+RBUF [READ A BLK 7N66 TBACK +5:3,+0 [BACKSPACE 7NKQ PRELIMS 7P5B LDX 1 0 7PK2 CALL 7 READPREV 7Q4L LDX 0 TREAD+1 7QJ= SLL 0 4 7R3W BPZ 0 NOTM 7RHG CALL 7 READPREV 7S36 LDX 0 RBUF 7SGQ TXU 0 XHDDR 7T2B BCC METHDDR 7TG2 CALL 7 READPREV 7T^L LDX 0 TREAD+1 7WF= SLL 0 4 7WYW BPZ 0 NOTM 7XDG WINDBACK 7XY6 CALL 7 READPREV 7YCQ LDX 0 RBUF 7YXB TXU 0 XHDDR 7^C2 BCC METHDDR 7^WL LDX 0 TREAD+1 82B= SLL 0 4 82TW BPZ 0 WINDBACK 83*G CALL 7 READPREV 83T6 LDX 5 XGEO3 84#Q LDX 6 XGEO3+1 84SB LDX 7 XGEO3+2 85#2 TXU 5 RBUF+2 85RL TXU 6 RBUF+3 86?= TXU 7 RBUF+4 86QW BCS NOTPREV 87=G CALL 7 READPREV 87Q6 LDN 0 1 889Q STO 0 19?+0 88PB EXIT 1 0 8992 NOTPREV 89NL METHDDR 8=8= LDN 0 0 8=MW STO 0 19?+0 8?7G EXIT 1 0 8?M6 READPREV 8#6Q PERI %A TBACK 8#LB PERI %A TBACK 8*62 PERI %A TREAD 8*KL SUSBY %A 5 8B5= EXIT 7 0 8BJW NOTM DEL #4656 [DELETED 'FN' 8C4G RBUF [BUFFER 8CJ6 #JUM PRELIMS 8D3Q #SKI 19?+0]<1$1 8DHB #POS MT%A %D [NO GEO3 SUBFILE PRECEDING 8F32 #FRE TBACK,TREAD,RBUF 8FGL ) 8G2= ) 8GFW #INT 8G^G [ VARIOUS CONTROL AREAS: 8HF6 TBACK +5:3,+0 [ BACKSPACE 8HYQ TREAD +5:0,+0,+20,+RBUF [ READ BLOCK 8JDB TSSF +5:1,+0,+20,+STSF [ WRITE A SENTINEL 8JY2 RQW +5:1,+0,+16,+RQSLIP [ WRITE REQUEST SLIP 8KCL T5W +5:1,+0,+5,+TYP5 [ WRITE TYPE 5 BLOCK 8KX= XENT #73030002 [ENTRY BLK 8LBW +K19+K18+DLOADERMT-DLOADERPM+K1LOADERMT [ENTRY POINT TO L/A 8LWG +0,+0,+0 [CHECKSUM+FILLER; MIN.BLK.=5 WDS. 8MB6 TSF #400:0 [END OF S/F SENT 8MTQ TCOUNT +0 8N*B #REP 18 [BLOCK COUNT 8NT2 +0 8P#L MTLEND +DLENDMT+511/512*512 [END OF MT L/A 8PS= PETA #73160001 8Q?W 4HGEO3 8QRG #400:0 8R?6 +0,+0,+0,+0 8RQQ #07007700 8S=B #REP 8 8SQ2 +0 8T9L PETB +6,+0,12H%C 8TP= +0,+0,+0,4?,+0,+0,+0 8W8W TMARK +5:5,+0 [WRITE TM 8WNG T5DW +5:1,+0,+512,+RBUF [WRITE A DATA BLK 8X86 XENTW +5:1,+0,+5,+XENT [ WRITE ENTRY BLOCK 8XMQ STSF +6,+0 [START OF S/F SENT 8Y7B 12HGEO3 8YM2 +0,+0,+0,4?,+0,+0,+0 8^6L 4HA500 8^L= #REP 7 925W +0 92KG RQSLIP #73200001 [RQSLIP FOR ALLOCATOR/LOADER 9356 RAT 12H%C 93JQ #TRA RAT+1 944B +0 94J2 #SKI BRILLO<1$1 953L +DLENDMT-DLOADERPM+511/512*8:0 95H= #SKI BRILLO 962W +DLENDMT-DLOADERDT+511/512*8:0 96GG [BOOTSTAP CORE RESERVATIONS 9726 +0,+0,+0 97FQ #11117700 97^B +0,+0,+0,+0,+0 98F2 RQCS 12H%C 98YL TRA 99D= #TRA RQCS 99XW +0 9=CG #TRA TRA 9=X6 TYP5 #73050005 [TYPE 5 SPECIFYING BLOCK 9?BQ T5ADD +K18+K19 9?WB T5LEN +512 [LENGTH OF DATA 9#B2 T5DCH +0 [DATA CHECKSUM 9#TL T5SCH +0 [CHECKSUM 9**= #SKI 11?<2$2 9*SW 4HA500 9B#G #SKI 11?-6<1$1 9BS6 4HA5ED 9C?Q #SKI 11?-9<1$1 9CRB 4HA5DR 9D?2 #SKI 11?-13<1$1 9DQL 4HA5FD 9F== #REP 7 9FPW +0 9G9G START 9GP6 LDX 1 0 [HOLD 9H8Q [ THE STORY SO FAR: %D ABSENT - TAPE POSITIONED IMMM. BEFORE HEADER 9HNB [ %D = 'T' - AFTER TRAILER 9J82 [ %D = NAME - IF GEO3 BEFORE NAMED SUBFILE FOUND 9JML [ THEN TAPE LEFT IMM. BEFORE S/S SENTINEL FOR GEO3 & 9K7= [ 19?+0]=1, ELSE TPE LEFT IMM. AFTER S/S SENTINEL FOR 9KLW [ NAMED FILE (%D) & 19?+0]=0, SO..... 9L6G #STR %D 9LL6 #SKI 9M5Q ( 9MKB ST PERI %A TREAD 9N52 SUSBY %A 5 9NJL LDX 5 TREAD+1 9P4= SLL 5 4 9PHW BNG 5 ST 9Q3G LDN 2 TMARK 9QH6 CALL 0 MTWA 9R2Q SUSWT #4643 [HALTED 'FC' IF FAILED 9RGB ) 9S22 #STR %D 9SFL ( 9S^= #STR %D,T 9TDW #SKI 9TYG ( 9WD6 SU PERI %A TBACK 9WXQ PERI %A TBACK 9XCB PERI %A TREAD 9XX2 SUSBY %A 5 9YBL LDX 5 TREAD+1 9YW= SLL 5 4 9^*W BPZ 5 SU 9^TG ) =2*6 ) =2SQ #STR %D =3#B ( =3S2 #STR %D,T =4?L ( =4R= #SKI 19?+0] =5=W ( =5QG [ NOTHING TO BE DONE IN THIS CASE. =6=6 ) =6PQ #SKI 19?+0]<1$1 =79B ( =7P2 SV PERI %A TBACK =88L PERI %A TBACK =8N= PERI %A TREAD =97W SUSBY %A 5 =9MG LDX 5 TREAD+1 ==76 SLL 5 4 ==LQ BPZ 5 SV =?6B ) =?L2 ) =#5L ) =#K= [ NOW POSITIONED TO WRITE THE START-OF-SUBFILE SENTINEL FOR L/A =*4W LDN 2 TSSF =*JG CALL 0 MTWA [WRITE S/F SENT GEO3 =B46 SUSWT #4643 [HALTED 'FC' IF FAILED =BHQ LDN 2 TMARK =C3B CALL 0 MTWA [TM BEFORE REQ.BLK =CH2 SUSWT #4643 [HALTED 'FC' IF FAILED =D2L LDN 7 RQSLIP =DG= SUM 6 16 [CHECKSUM REQ.BLK =D^W NGS 6 RQCS [INSERT CHECKSUM =FFG LDN 2 RQW =F^6 CALL 0 MTWA [WRITE RQSLIP =GDQ SUSWT #4672 [HALTED 'FZ' IF FAILED =GYB LDN 4 DLOADERPM [INITIAL DRUM ADDRESS =HD2 XLOOP CALL 3 WRITE =HXL [ THIS READS THE NEXT 512 WDS FROM BS & WRITES THEM TO TAPE, =JC= [ ADDING 512 TO X4 =JWW TXL 4 MTLEND =KBG BCS XLOOP [MORE TO GO =KW6 LDN 7 XENT =L*Q SUM 6 2 =LTB NGS 6 XENT+2 [INSERT ENTRY BLK CHECKSUM =M*2 LDN 2 XENTW =MSL CALL 0 MTW [WRITE ENTRY BLK =N#= SUSWT #4645 [HALTED 'FE' IF FAILED =NRW [ B/D OF LOADER/ALLOCATOR IS NOW COMPLETE =P?G LDN 2 TMARK =PR6 CALL 0 MTWA [TM BEFORE E/S SENT =Q=Q SUSWT #4646 [HALTED 'FF' IF FAILED =QQB LDN 2 TSF =R=2 STO 2 TSSF+3 =RPL LDN 2 TSSF =S9= CALL 0 MTWA [WRITE E/S SENT =SNW SUSWT #4646 [HALTED 'FF' IF FAILED =T8G LDN 2 TMARK =TN6 CALL 0 MTWA [TM BEFORE TRAILER =W7Q SUSWT #4664 [HALTED 'FT' IF FAILED =WMB LDN 2 7 =X72 STO 2 TSF [MAKE E/S SENT INTO... =XLL STOZ TCOUNT [TRAILER LBL. =Y6= LDN 2 TSSF =YKW CALL 0 MTWA =^5G SUSWT #4664 [HALTED 'FT' IF FAILED =^K6 EXIT 1 0 ?24Q [ S/R TO WRITE BLOCK TO MAG TAPE. ?2JB [ X2->CA, CALLED VIA X0 ?342 MTW ?3HL LDN 5 1 ?43= ADS 5 TCOUNT [UPDATE BLOCK COUNT ?4GW MTWA PERI %A 0(2) [WRITE ?52G SUSBY %A 5 ?5G6 LDCT 5 #460 ?5^Q ANDX 5 1(2) ?6FB BNZ 5 MTWAB [TRANSFER FAILED - EXIT 0 0 ?6^2 EXIT 0 1 [ELSE EXIT 0 1 ?7DL MTWAB EXIT 0 0 ?7Y= [ S/R TO READ BLOCK FROM PROGRAM FILE: ?8CW [ DRUM ADDRESS IN X4; CALLED VIA X7. ?8XG RBLOCK ?9C6 LDN 2 512 [REQUIRES WD.COUNT IN X2 ?9WQ LDN 5 RBUF [ CORE ADDRESS IN X5 ?=BB LDX 6 4 [ BS ADDRESS IN X6 ?=W2 CALL 0 18?+2]+3] ??*L EXIT 7 0 ??T= [ S/R TO READ BLOCK FROM BS & WRITE TO TAPE AS TYPE 5 PAIR ?##W [ CALLED VIA X3 ?#SG WRITE CALL 7 RBLOCK ?*#6 WRITA LDN 7 RBUF ?*RQ SUM 6 0 ?B?B NGS 6 T5DCH ?BR2 LDN 7 TYP5 ?C=L SUM 6 4 ?CQ= NGS 6 T5SCH ?D9W LDN 2 T5W ?DPG CALL 0 MTW [WRITE SPECIFYING BLOCK ?F96 SUSWT #4605 [HALTED 'F5' ?FNQ LDN 2 T5DW ?G8B CALL 0 MTW [WRITE DATA BLOCK ?GN2 SUSWT #4644 [HALTED 'FD' ?H7L LDN 0 512 ?HM= ADS 0 T5ADD [UPDATE ADDRESS FOR DATA ?J6W ADN 4 512 [UPDATE D-ADDRESS ?JLG EXIT 3 0 ?K66 RBUF [BLOCK BUFFER ?KKQ #JUM START [DUMP BOOTSTRAP ?L5B #LIS MLIST ?LK2 #EXT ?M4L #DUM MT%A PETA,PETB ?MJ= #NOR