MISCMACS
(George Source)
- MISCMACS.txt
22FL # 22^= # 23DW # THIS MACROS SUBFILE IS OWNED BY M.C.D. MANN 23YG # 24D6 # 24XQ [??? TRACE SECT DIAG FGN 4 DOC 25X2 #SKI BUFTRACE<1$1 [SKIP IF NOT TRACING ON-LINE 26BL ( 26W= #MAC TRACE [M.C.D. MANN 27*W [ 27TG [ 28*6 [ *********** 28SQ [ * TRACE * 29#B [ *********** 29S2 [ 2=?L [ 2=R= #SKI K6TRACE>11-11 2?=W ( 2?QG STO 1 BATEMAN1 2#=6 CALL 1 (CHCHTR) 2#PQ ) 2*9B GEO 7 %A 2*P2 8H%B 2B8L #NOR 2BN= ) 2C7W [??? DELAY SECT DIAG FGN 4 DOC 2CMG #SKI BUFTRACE<1$1 [SKIP IF NOT TRACING ONLINE 2D76 ( 2DLQ #MAC DELAY [M.C.D. MANN 2F6B [ 2FL2 [ 2G5L [ *********** 2GK= [ * DELAY * 2H4W [ *********** 2HJG [ 2J46 [ 2JHQ #SKI K6TRACE>11-11 2K3B ( 2KH2 #MEND FIXED 2L2L #TRA BEGINT 2LG= +%A 2L^W #END 2MFG ) 2M^6 #NOR 2NDQ ) 2NYB [??? GSCAN SECT DIAG FGN 4 DOC 2PD2 #SKI BUFTRACE<1$1 [SKIP IF NOT TRACING ONLINE 2PXL ( 2QC= #MAC GSCAN [M.C.D. MANN 2QWW [ 2RBG [ 2RW6 [ *********** 2S*Q [ * GSCAN * 2STB [ *********** 2T*2 [ 2TSL [ 2W#= TRACE %A,%B 2WRW #NOR 2X?G ) 2XR6 [??? INPRINTZ SECT DIAG FGN 4 DOC 2Y=Q #SKI APTF7 2YQB ( 2^=2 #MAC INPRINTZ [M.C.D. MANN 2^PL [ 329= [ 32NW [ ************** 338G [ * INPRINTZ * 33N6 [ ************** 347Q [ 34MB [ 3572 LDX 0 %A 35LL SMO FX2 366= STO 0 ACOMMUNE7 36KW LDX 0 %B 375G SMO FX2 37K6 STO 0 ACOMMUNE8 384Q #STR %C 38JB ( 3942 SMO FX1 39HL LDX 0 MINPRINT1 3=3= SMO FX2 3=GW STO 0 ACOMMUNE6 3?2G DOWN INPRIN,3 3?G6 BRN MINPRINT2 3?^Q MINPRINT1 3#FB #STR %D 3#^2 #HAL %C+%D,0 3*DL #STR %D 3*Y= #STR 3BCW #HAL %C+0,0 3BXG ) 3CC6 #STR %C 3CWQ #STR 3DBB DOWN INPRIN,2 3DW2 MINPRINT2 3F*L #NOR 3FT= ) 3G#W [??? INPRINTX SECT DIAG FGN 4 DOC 3GSG #SKI APTF7 3H#6 ( 3HRQ #MAC INPRINTX [M.C.D. MANN 3J?B [ 3JR2 [ 3K=L [ ************** 3KQ= [ * INPRINTX * 3L9W [ ************** 3LPG [ 3M96 [ 3MNQ LDX 0 %C 3N8B SMO FX2 3NN2 STO 0 ACOMMUNE9 3P7L INPRINTZ %A,%B,%D,%E 3PM= #NOR 3Q6W ) 3QLG [??? INPRINTY SECT DIAG FGN 4 DOC 3R66 #SKI APTF7 3RKQ ( 3S5B #MAC INPRINTY [M.C.D. MANN 3SK2 [ 3T4L [ 3TJ= [ ************** 3W3W [ * INPRINTY * 3WHG [ ************** 3X36 [ 3XGQ [ 3Y2B #SKI %C 3YG2 ( 3Y^L LDN 0 1 3^F= SMO FX2 3^YW STO 0 ACOMMUNE9 42DG ) 42Y6 #SKI %C 43CQ #SKI 43XB ( 44C2 SMO FX2 44WL STOZ ACOMMUNE9 45B= ) 45TW ... INPRINTZ %A,%B,%D,%E 46*G #NOR 46T6 ) 47#Q [??? GEOERR SECT DIAG FGN 4 DOC 47SB #MAC GEOERR [M.C.D. MANN 48#2 [ 48RL [ 49?= [ ************ 49QW [ * GEOERR * 4==G [ ************ 4=Q6 [ 4?9Q [ 4?PB #SKI GENIE<1$1 4#92 SUSB 0 %A [%A LEVEL OF POSTMORTEM 4#NL #SKI GENIE 4*8= '170 7 %A 4*MW 8H%B 4B7G #NOR 4BM6 [??? SIX SECT DIAG FGN 4 DOC 4C6Q #MAC SIX [M.C.D. MANN 4CLB [ 4D62 [ 4DKL [ ********* 4F5= [ * SIX * 4FJW [ ********* 4G4G [ 4GJ6 [ 4H3Q +%B-%E*64+%C-%E*64+%D-%E 4HHB #FID 0 5 +%A-%E 4J32 #NOR 4JGL [??? EDSMASH SECT DIAG FGN 4 DOC 4K2= #MAC EDSMASH [M.C.D. MANN 4KFW [ 4K^G [ 4LF6 [ ************* 4LYQ [ * EDSMASH * 4MDB [ ************* 4MY2 [ 4NCL [ 4NX= FSDESC 4PBW #STR EDS30,%A 4PWG #SKI 4QB6 ( 4QTQ FSFILE 3,6,DASTORE30 4R*B FSFILE 4,6,DASWAP30,,SWAP 4RT2 ) 4S#L #STR EDS30,%A 4SS= ( 4T?W FSFILE 3,6,DASTORE 4TRG FSFILE 4,6,DASWAP,,SWAP 4W?6 ) 4WQQ ENDESC 4X=B #NOR 4XQ2 [??? SWAPMASH SECT DIAG FGN 4 DOC 4Y9L #MAC SWAPMASH [M.C.D. MANN 4YP= [ 4^8W [ 4^NG [ ************** 5286 [ * SWAPMASH * 52MQ [ ************** 537B [ 53M2 [ 546L FSDESC 54L= #STR EDS30,%A 555W #SKI 55KG FSFILE 3,6,DASTORE30 5656 #STR EDS30,%A 56JQ FSFILE 3,6,DASTORE 574B FSFILE 4,9,SWAPFILE,,SWAP 57J2 ENDESC 583L #NOR 58H= [??? DRUMMASH SECT DIAG FGN 4 DOC 592W #MAC DRUMMASH [M.C.D. MANN 59GG [ 5=26 [ 5=FQ [ ************** 5=^B [ * DRUMMASH * 5?F2 [ ************** 5?YL [ 5#D= [ 5#XW [CREATED ON DRUM 5*CG FSDESC 5*X6 #STR EDS30,%A 5BBQ #SKI 5BWB FSFILE 3,6,DASTORE30 5CB2 #STR EDS30,%A 5CTL FSFILE 3,6,DASTORE 5D*= FSFILE 4,9,SWAPFILE,,SWAP 5DSW ENDESC 5F#G #INT 5FS6 #ORD 5G?Q R 9:#400,+0,12HSWAPFILE 5GRB #STR %B 5H?2 +%B*1024 [SPECIFIED SWAPFILE SIZE 5HQL #STR %B 5J== #SKI 5JPW +150000 [DEFAULT SWAPFILE SIZE 5K9G Z #7777777 5KP6 MESS 35:MESSY 5L8Q MESSY 4H ONL,#71202020,#20202053,23H ALLOCATED FOR SWAPFILE 5LNB NASM 22:NASWD 5M82 NASWD 22HRUN #DRUM FOR SWAPFILE 5MML XA 1024000 5N7= XB +MESSY+1.3 5NLW P PERI 2 R 5P6G LDX 1 R+1 5PL6 BNG 1 MORE 5Q5Q EXIT 0 0 5QKB MORE ANDX 1 Z 5R52 BZE 1 NASTY 5RJL STO 1 R+5 5S4= PERI 2 R 5SHW LDX 1 R+1 5T3G BNG 1 NASTY 5TH6 LDX 1 R+5 5W2Q LDN 2 0 5WGB DVR 1 XA 5X22 LDCT 3 #200 5XFL LDX 1 XB 5X^= LDN 4 3 5YDW MODE 1 5YYG W CBD 2 0(1) 5^D6 BCHX 1 £ 5^XQ BCT 4 W 62CB MODE 0 62X2 DISTY MESS 63BL EXIT 0 0 63W= NASTY DISTY NASM 64*W EXIT 0 0 64TG #JUM P 65*6 #EXT 65SQ #NOR 66#B [??? DUMPNOLA SECT DIAG FGN 4 DOC 66S2 #DEF ARDL=1 [THIS MAKES NECESSARY CHANGES 67?L #MAC DUMPNOLA [M.C.D. MANN 67R= [ 68=W [ 68QG [ ************** 69=6 [ * DUMPNOLA * 69PQ [ ************** 6=9B [ 6=P2 [ 6?8L [ DUMPNOLA DUMPS A RESTORABLE DUMP OF GEORGE ON TO 6?N= [ MAGNETIC TAPE IN THE SAME FORMAT AS THE "DUMP" 6#7W [ MACRO BUT WITHOUT LOADER/ALLOCATOR 6#MG [ 6*76 #INT 6*LQ #OPT ARDL=0 6B6B PETA #73160001 6BL2 4HGEO3 6C5L #51000000 6CK= +0 6D4W +0 6DJG +0 6F46 +0 6FHQ #07007700 6G3B #REP 8 6GH2 +0 6H2L PETB +6,+0,12H%C 6HG= 0,0,0,4?,0,0,0 6H^W #SKI 11?<2$2 6JFG 4HA500 6J^6 #SKI 11?-6<1$1 6KDQ 4HA5ED 6KYB #SKI 11?-9<2$2 6LD2 4HA5DR 6LXL #SKI 11?-13<1$1 6MC= 4HA5FD 6MWW #REP 7 6NBG +0 6NW6 PETE EXIT 0 0 6P*Q #JUM PETE 6PTB #OFW MT%A %B 6Q*2 #STR %D 6QSL ( 6R#= #STR %D,T 6RRW #POS MT%A %D 6S?G #STR %D,T 6SR6 #STR 6T=Q #POS MT%A 6TQB ) 6W=2 #DUM MT%A PETA,PETB 6WPL #NOR 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 ^^^^ ...437101740006