{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MISCMACS)}}
====== MISCMACS ======
(George Source)
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