{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: SETPF867)}}
====== SETPF867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BRUSEN|BRUSEN]], [[george:macro:BXE|BXE]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERRX|COMERRX]], [[george:macro:CONSERNO|CONSERNO]], [[george:macro:DATECON|DATECON]], [[george:macro:DUMP|DUMP]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERROR|ERROR]], [[george:macro:FINDNAME|FINDNAME]], [[george:macro:FNORM|FNORM]], [[george:macro:HUNT|HUNT]], [[george:macro:JANAL|JANAL]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JMBAC|JMBAC]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:ON|ON]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:PARAFREE|PARAFREE]], [[george:macro:READ|READ]], [[george:macro:REPALLER|REPALLER]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETREP|SETREP]], [[george:macro:SPARANXT|SPARANXT]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:TESTHKN|TESTHKN]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TIMECON|TIMECON]], [[george:macro:TRAPOPEN|TRAPOPEN]], [[george:macro:UNIFREE|UNIFREE]], [[george:macro:UP|UP]]
22FL ... SEG SETPF,,CENT(INSTALLATION HOOKS),,G400
22^= [
23DW [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23YG [
24D6 #
24XQ SEGENTRY K1SETPF,SENTRY1
25CB #
25X2 # THIS CHAPTER IMPLEMENTS THE SP LDE FACILITY
26BL #
26W= SMASK #77777700
27*W SDIRY 4HDIR
27TG SPSEU 4HPSEU
28*6 SFILE 4HFILE
28SQ SMULT 4HMULT
29#B SMAG 4HMAGS
29S2 SEXO 8HEXOFILE
2=?L STEMP 4H(T)
2=R= SERASE 4H(E)
2?=W SRETURN 4H(R)
2?QG SFROZEN 4H(F)
2#=6 W +10000
2#PQ SASTER 4H*LP
2*9B SLF 8HLF !,*LP
2*P2 TYPEMODE #40000012 [ GRAPHIC
2B8L #
2BN= XCHARSIN
2C7W DCH 5 0(1) [INSERT CHAR
2CMG SRL 5 6
2D76 BZE 5 (0) [JIF NO MORE
2DLQ SLC 1 2
2F6B SBN 1 1 [ALTER CHAR INDEX
2FL2 SRC 1 2
2G5L BRN XCHARSIN
2GK= #
2H4W # #############################################################
2HJG #
2J46 # K K 1
2JHQ # K K 11
2K3B # K K 1
2KH2 # K K 1
2L2L # KKK 1
2LG= # K K 1
2L^W # K K 1
2MFG # K K 1
2M^6 # K K 1
2NDQ #
2NYB # #############################################################
2PD2 #
2PXL SENTRY1
2QC= #
2QWW # ENTRY POINT FROM SETPC
2RBG #
2RW6 LDN 4 2
2S*Q SPARANXT ,,4
2STB XDSK1
2T*2 MHUNT 3,CPB,CUNI [PARAMETER BLOCK
2TSL LDX 0 ANUM(3)
2W#= BZE 0 XERR [ERROR,NULL PARAM
2WRW BNG 0 XERR [ERROR,NONEXISTENT PARAM
2X?G LDCH 0 APARA(3)
2XR6 SBN 0 #21
2Y=Q BZE 0 XDSK2 [ERROR-WORKFILE
2YQB BRUSEN XDSKF [JIF NO-USER CONTEXT
2^=2 BRN XDSK3 [J ROUND
2^PL XDSKF
329= TESTHKN NOTUSERCN [MUST BE IN A HOOK IF NO-USER CONTEXT
32*7 ... SEGENTRY G400LDEA
32F4 ... NULL [ALTERED TO BRN NOTUSERCN IF IHSPN
32J^ ...[ [ RESTORE TIME MACRO OFF
32NW STOZ CPREFIX(2)
338G STOZ CPREFIX+1(2) [CLEAR CPREFIX AREA
33N6 STOZ CPREFIX+2(2)
347Q XDSK3
34MB NAMETOP 3,FILE,FNAME
3572 FNORM [NORMALISE
35LL TESTREPN OK,OPENERR [J IF FORMAT ERROR
366= MHUNT 3,FILE,FNAME
36KW NAMETOP 3,CPB,CUNI
375G STOZ AWORK1(2) [CLEAR MARKER WD
37K6 STOZ AWORK2(2) [CLEAR FOR OUTMESS
384Q MHUNT 3,FILE,FABSNB
38JB LDX 0 ATYPE(3)
3942 ADN 0 2
39HL STO 0 ATYPE(3)
3=3= ANDN 0 #1000
3=GW SLL 0 13 [MOVE TO B1=NO USER SPECIFIED
3?2G ORS 0 AWORK1(2) [SAVE LOCAL NAME ONLY BIT
3?G6 LDX 0 ALOGLEN(3)
3?^Q SBX 0 HDREC(3)
3#FB SBN 0 2
3#^2 BNG 0 XDSK4B [J NO TSN
3*DL SMO ALOGLEN(3)
3*Y= LDX 0 A1-1(3)
3BCW BPZ 0 XDSK16
3BXG JANAL OPENERR
3CC6 ERROR ERXENOSER
3CWQ BRN OPENERR
3DBB XDSK16
3DW2 LDX 0 GSIGN
3F*L ORS 0 AWORK1(2) [SAVE TSN SPEC'D BIT
3FT= SMO ALOGLEN(3)
3G#W LDX 0 A1-8(3)
3GSG BNZ 0 XDSK4
3H#6 LDCT 0 #600
3HRQ ORS 0 AWORK1(2)
3J?B BRN XDSK4
3JR2 XDSK4B
3K=L LDX 0 A1+1(3)
3KQ= BZE 0 XERR
3L9W XDSK4
3LPG LDX 0 AWORK1(2)
3M96 SLC 0 1
3MNQ BNG 0 XDSK5
3N8B FINDNAME
3NN2 TESTREP OK,XDSK4A
3P7L JANAL OPENERR
3PM= REPALLER
3Q6W BRN OPENERR
3QLG XDSK4A
3R66 MHUNT 3,FILE,FABSNB
3RKQ XDSK5
3S5B BRUSEN XDSK6 [J IF NOUSER
3SK2 BRN XDSK7
3T4L XDSK6
3TJ= LDX 0 AWORK1(2)
3W3W BNG 0 XDSK7
3WHG SLC 0 1
3X36 BNG 0 XERR [FORMAT ERROR
3XGQ XDSK7
3Y2B LDX 0 AWORK1(2)
3YG2 BPZ 0 XDSK8 [NOT MT WITH TSN
3Y^L SMO ALOGLEN(3)
3^F= LDX 4 A1-1(3) [LOAD TSN
3^YW OPENSYS ZBREAKIN,SERIAL,READ
42DG SSEARCH XDSK9,4 [FIND RECORD IN SERIAL
42Y6 LDX 6 5(3)
43CQ SLC 6 3
43XB BNG 6 XDSK10 [ERROR = NAMED WORKE TAPE
44C2 LDX 5 2(3) [FIRST WD OF USERNAME
44WL BZE 5 XDSK11 [POOL OR WORK TAPE
45B= LDX 6 3(3) [REST OF ...
45TW LDX 7 4(3) [USERNAME
46*G MHUNT 3,FILE,FABSNB
46T6 LDX 0 AWORK1(2)
47#Q SLC 0 1
47SB BNG 0 XDSK12 [USER NAME NOT GIVEN
48#2 LDX 0 HDREC(3)
48RL SBN 0 12
49?= BPZ 0 XDSK15
49QW LDN 0 0
4==G XDSK15
4=Q6 ADX 3 0
4?9Q TXU 5 A1+1(3) [COMPARE SERIAL AND SPECIFIED
4?PB TXU 6 A1+2(3) [USER NAMES
4#92 TXU 7 A1+3(3)
4#NL BCC XDSK8 [JIF NAMES AGREE
4*8= CLOSETOP
4*MW JANAL OPENERR
4B7G ERROR ERDISAGREE [REPORT ERROR
4BM6 BRN OPENERR
4C6Q XDSK12
4CLB STO 5 HDREC+1(3) [REPLACE USER NAME
4D62 STO 6 HDREC+2(3)
4DKL STO 7 HDREC+3(3)
4F5= XDSK8
4FJW ... BRUSEN XDSK8A [NO TRAP CHECKING IN NO USER CONTEXT
4HHB MHUNT 3,FILE,FABSNB
4J32 LDX 7 HDREC(3) [PICK UP THE BLOCK LENGTH
4JGL SBN 7 11 [IF IT'S LESS THAN 10 : TOP OF TREE
4K2= BNG 7 XDTC4 [J IF TOP OF FILESTORE TREE REACHED
4KFW NGN 4 6
4K^G ADS 4 HDREC(3) [REDUCE BLOCK LENGTH BY 6 WORDS
4LF6 LDX 4 ATYPE(3) [RESET ATYPE WORD SO GETDIR
4LYQ DSA 4 AWORK1(2) [DOSN'T GET CONFUSED THINKING
4MDB ANDN 4 #5700 [IT SHOULD BE LOOKING FOR A
4MY2 DSA 4 ATYPE(3) [MAGNETIC TAPE
4NCL OPENDIR ZBREAKIN,READ,QUERY [OPEN CURRENT DIRECTORY'S DIRECTORY
4NX= TESTREP OK,XDTC2 [J IF DIRECTORY OPENED OK
4PBW JANAL OPENERR
4PWG REPALLER [REPORT THE COMMAND ERROR
4QB6 BRN OPENERR [AND GIVE UP
4QTQ XDTC2
4R*B TRAPOPEN READ [ARE READ TRAPS OPEN?
4RT2 TESTREP OKAY,XDTC3 [J IF SO
4S#L LDCT 4 #100 [REMEMBER THAT READ TRAPS TO THE
4SS= ... SMO FX2 [DIRECTORY ARE CLOSED AND WE MUST
4T?W ORS 4 AWORK1 [CHECK TRAPS ON THE FILE ITSELF
4TRG XDTC3
4W?6 CLOSETOP [CLOSE THE DIRECTORY
4WQQ MHUNT 3,FILE,FABSNB [FIND THE FILE/FABSNB BLOCK
4X=B LDN 4 6 [INCREMENT RECORD HEADER BY 6 WORDS
4XQ2 ADS 4 HDREC(3) [BLOCK NOW REFERS TO THE ENTRANT
4Y9L LDX 4 AWORK1(2) [REINSTATE ORIGINAL ATYPE TO LET
4YP= DSA 4 ATYPE(3) [MAG TAPES BE DEALT WITH
4^8W XDTC4
4^NG XDSK8A
5286 OPENDIR ZBREAKIN,READ,QUERY [GET DIR ENTRY
52MQ TESTREPN OK,XDTC6 [ JIF NOT FOUND
537B XDTC7
53M2 ... BRUSEN OUTMESST [NO TRAP CHECKING IF NO USER CONTEXT
546L LDX 4 AWORK1(2)
54L= SLL 4 2
555W BPZ 4 OUTMESST [J IF NO MORE TRAP CHECKING NEEDED
55KG CHECKTRAPS
5656 LDX 0 ACOMMUNE7(2)
56JQ BNZ 0 OUTMESST
574B SETREP NOTRAP
576^ ... JANAL XDSK17A
579J ... BRN XDTC6A
57#7 ...XDSK17A
57BQ ... CLOSETOP
57F* ... BRN XDSK17
57J2 XDTC6
583L JANAL XDSK17
58?D ...XDTC6A
58H= REPALLER [REPORT ERRORS
592W XDSK17
59GG LDX 0 AWORK1(2)
5=26 BPZ 0 OPENERR
5=FQ CLOSETOP
5=^B BRN OPENERR
5?F2 OUTMESST
5?YL CLOSETOP [DIRECTORY
5#D= LDX 0 AWORK1(2)
5#XW BPZ 0 TAS
5*CG OUTMESSTA
5*X6 CLOSETOP [SERIAL
5BBQ BRN TAS
5BWB #
5CB2 # VARIOUS SPECIAL CASES
5CTL #
5D*= XDSK9
5DSW CLOSETOP
5F#G JANAL OPENERR
5FS6 ERROR ERUNKNOWN
5G?Q BRN OPENERR [EXIT
5GRB XDSK10 [NAMED WORKTAPE
5H?2 CLOSETOP
5HQL BRN XDSK2
5J== XDSK11 [POOL OR WORK TAPE
5JPW CLOSETOP
5K9G BRN XERR
5KP6 XDSK2
5L8Q JANAL XERR
5LNB ERROR JDNOWORK
5M82 BRN XERR
5MML #
5MXD ... SEGENTRY G400LDEB
5N7= NOTUSERCN
5NLW ... LDX 7 PJLWRONGUS(1)
5P6G BRN XER1
5PL6 #
5Q5Q OPENERR
5QKB LDN 7 0
5R52 BRN XER1
5RJL XERR1
5S4= LDX 7 PCHNUMERR(1) [ERROR CODE ...
5SHW BRN XER1
5T3G XERR
5TH6 LDX 7 PAPFERR(1)
5W2Q XER1
5WGB SMO FX2
5X22 LDX 4 AWORK4
5XFL NGN 6 1
5X^= BZE 4 XER2
5YDW PARAFREE
5YYG UNIFREE
5^D6 LDX 2 FX2
5^XQ LDX 0 AWORK3(2)
62CB STO 0 JOBEVENTS(2)
62X2 UP
63BL XER2
63W= BZE 7 XENDCOM
64*W COMERRX 7,6
64TG XENDCOM
65*6 ENDCOM
65SQ #
66#B ...PJLWRONGUS +JLWRONGUSER
66S2 PCHNUMERR +CHNUMERR
67?L PAPFERR +APFERR
67R= #
68=W #
68QG ZBREAKIN
69=6 COMBRKIN
69PQ #
6=9B #
6=P2 # ASSEMBLE THE FIRST PART OF THE MESSAGE
6?8L #
6?N= TAS
6#7W SETNCORE 120,3,COMDAT,CSETP
6#MG STOZ ANUM(3)
6*76 LDX 0 ACES
6*LQ STO 0 APARA(3)
6B6B LDN 6 APARA(3)
6BL2 LDN 7 APARA+1(3)
6C5L MOVE 6 119 [MOVE IN SPACES
6CK= MHUNT 2,FILE,ENT
6D4W LDX 7 ACES
6DJG JBS MAGTAPE,2,BELIB
6F46 LDN 4 0
6FHQ JBS XOFILE,2,BEEXO
6G3B JBC NOTTEMP,2,BETEMP
6GH2 LDX 7 STEMP(1) [(T)
6H2L NOTTEMP
6HG= JBC NOTFROZEN,2,BEUSERFREZ
6H^W LDX 7 SFROZEN(1)
6JFG NOTFROZEN
6J^6 JBC NOTERASED,2,BEERASE
6KDQ LDX 7 SERASE(1) [(E)
6KYB NOTERASED
6LD2 LDX 0 EUSE1(2)
6LXL BNZ 0 XDIR
6MC= LDX 6 SFILE(1) ['FILE'
6MWW JMBAC ND,2,BEMDF,BEMULT
6NBG LDX 6 SMULT(1) ['MULT'
6NW6 BRN ND
6P*Q XDIR
6PTB LDX 6 SDIRY(1)
6Q*2 JBC NOTPSEU,2,BEPSEUDO
6QSL LDX 6 SPSEU(1)
6R#= NOTPSEU
6RRW BRN ND
6S?G XOFILE
6SR6 LDX 6 SEXO(1)
6T=Q LDX 7 SEXO+1(1)
6TQB BRN ND
6W=2 MAGTAPE
6WPL LDN 4 1
6X9= LDX 6 SMAG(1) ['MAGS'
6XNW JBC ND,2,BEERASE
6Y8G LDX 7 SRETURN(1) [(R)
6YN6 ND
6^7Q STO 6 APARA(3)
6^MB STO 7 APARA+1(3)
7272 LDN 6 ELOC1(2)
72LL LDN 7 APARA+2(3)
736= MOVE 6 3 [LOCAL NAME
73KW BZE 4 T8
745G LDX 5 EREEL(2) [REEL NUMBER IF MAGTAPE
74K6 CALL 1 XBINDEC [CONVERT TO CHARACTER FORM
754Q LDCT 1 #600
75JB ADN 1 APARA+9(3) [REEL NO
7642 CALL 0 XCHARSIN
76HL T8
773= LDX 5 EGEN(2) [GENERATION NO
77GW CALL 1 XBINDEC
782G LDN 1 APARA+6(3)
78G6 CALL 0 XCHARSIN
78^Q BNZ 4 T14 [J IF MAGTAPE
79FB LDX 5 ELAN(2) [LANGUAGE
79^2 T11
7=DL LDCT 1 384
7=Y= ADN 1 APARA+7(3) [LANGUAGE
7?CW CALL 0 XCHARSIN
7?XG LDX 0 EUSE1(2)
7#C6 BZE 0 T19
7#WQ LDN 0 #12 [ :
7*BB LDN 1 APARA+9(3)
7*W2 SLC 1 2
7B*L ADN 1 3
7BT= SRC 1 2
7C#W DCH 0 0(1)
7CSG BCHX 1 £
7D#6 LDN 0 EUSE1(2)
7DRQ MOVE 0 3 [ USERNAME
7F?B BRN T19
7FR2 T14
7G=L CONSERNO ESER(2),ACOMMUNE1
7GQ= MHUNT 1,COMDAT,CSETP
7H9W LDN 3 APARA+12(1)
7HPG LDX 0 ACOMMUNE1(2)
7J96 ADN 2 ACOMMUNE2
7JNQ SMO 0
7K8B MVCH 2 0
7KN2 T19
7L7L MHUNT 3,COMDAT,CSETP
7LM= LDN 0 72
7M6W STO 0 ANUM(3)
7MLG BRN TF
7N66 XBINDEC
7NKQ STOZ 6
7P5B SMO FX1
7PK2 DVR 5 W
7Q4L LDCT 7 #200
7QJ= LDN 2 5
7R3W MODE 1
7RHG LDN 0 3
7S36 XBINDEC1
7SGQ CBD 6 0(2)
7T2B BCHX 2 £
7TG2 BCT 0 XBINDEC1
7T^L MODE 0
7WF= CBD 6 0(2)
7WYW HUNT 2,FILE,ENT
7XDG EXIT 1 0
7XY6 #
7YCQ # STORED WORDS AND SUBROUTINES FOR THE SECOND PA
7YXB #
7^C2 #
7^WL UARCH 12H ARCHIVE
82B= MARCH 16H ARCHIVE(M)
82TW WW +1000000
83*G W1 52H RETENTION PERIOD= WRITTEN AT
83T6 28H ON
84#Q W2 52H TYPE/MODE LAST ACCESS
84SB 28H ON
85#2 W3 52H INCREMENT NO. LAST DUMP
85RL 28H ON
86?= W4 52H ONLINE COPIES FILE SIZE BLOCKS
86QW 28H
87=G TABLE
87Q6 #40000002
889Q +TNORM
88PB #40000012
8992 +TGRAP
89NL #40000022
8=8= +TALLC
8=MW #40500000
8?7G +TMAGT
8?M6 #40600000
8#6Q +TUDAS
8#LB #41100000
8*62 +TDRUM
8*KL #0
8B5= +TAMOR
8BJW #DEF TABLEN=0?-TABLE/2
8C4G #GAP 4
8CJ6 TFORMAT 12H FORMAT
8D3Q TNORM 2,8HNORMAL
8DHB TGRAP 2,8HGRAPHIC
8F32 TALLC 2,8HALLCHARS
8FGL TMAGT 1,4H*MT
8G2= TUDAS 1,4H*DA
8GFW TDRUM 1,4H*DR
8G^G TAMOR 3,12HAMORPHOUS
8HF6 #
8HYQ SDATECON
8JDB SBX 5 FX1
8JY2 DATECON 0
8KCL XCON
8KX= ADX 5 1
8LBW ADN 2 ACOMMUNE1
8LWG MHUNTW 3,COMDAT,CSETP
8MB6 EXIT 5 0
8MTQ TIMECON
8N*B SBX 5 FX1
8NT2 TIMECON 0
8P#L BRN XCON
8PS= #
8Q?W # SECOND PART OF ASSEMBLY
8QRG #
8R?6 TF
8RQQ LDX 1 FX1
8S=B LDN 2 W1(1)
8SQ2 ADN 3 APARA+18
8T9L MOVE 2 18 [MOVE IN TITLES
8TP= HUNT 2,FILE,ENT
8W8W LDX 5 ERET(2) [RETENTION PERIOD
8WNG CALL 7 XCONV
8X86 STO 5 6(3)
8XMQ LDX 0 EWRITDAY(2)
8Y7B BZE 0 W5
8YM2 CALL 5 SDATECON
8^6L ADN 3 APARA+33 [SET UP ADDRESS OF OUTPUT AREA
8^L= MOVE 2 2 [MOVE TO OUTPUT AREA
925W HUNT 2,FILE,ENT [RESET ADDRESS OF ENTRY
92KG LDX 0 EWRITTIME(2)
9356 CALL 5 TIMECON
93JQ ADN 3 APARA+29
944B MOVE 2 2 [STORE IN OUTPUT BLOCK
94J2 W5
953L MHUNT 3,COMDAT,CSETP
95H= LDN 0 72
962W ADS 0 ANUM(3)
96GG ADN 3 APARA+36
9726 LDN 2 W2(1)
97FQ MOVE 2 18 [NEXT LINE TITLES
97^B HUNT 2,FILE,ENT
98F2 LDX 5 ETM(2) [TYPE AND MODE
98YL LDN 0 TABLEN
99D= LDN 6 0
99XW NEXTTYPE
9=CG SMO 6
9=X6 BXE 5 TABLE(1),MATCH
9?BQ ADN 6 2
9?WB BCT 0 NEXTTYPE
9#B2 LDN 5 #17
9#TL DCH 5 5(3)
9**= BRN XSDATE
9*SW MATCH
9B#G LDN 2 TFORMAT(1)
9BS6 ADN 3 1
9C?Q MOVE 2 3
9CRB ADN 3 3
9D?2 SMO 6
9DQL LDX 1 TABLE+1(1)
9F== ADX 1 FX1
9FPW LDN 2 1(1)
9G9G LDX 1 0(1)
9GP6 MOVE 2 0(1)
9H8Q MHUNTW 2,FILE,ENT
9HNB XSDATE
9J82 LDX 0 EDLA(2)
9JML LDX 4 ESER(2)
9K7= BZE 0 T25
9KLW CALL 5 SDATECON
9L6G ADN 3 APARA+51
9LL6 MOVE 2 2
9M5Q HUNT 2,FILE,ENT
9MKB LDX 0 ETLA(2)
9N52 CALL 5 TIMECON
9NJL ADN 3 APARA+47
9P4= MOVE 2 2
9PHW T25
9Q3G MHUNT 3,COMDAT,CSETP
9QH6 LDN 0 72
9R2Q ADS 0 ANUM(3)
9RGB BNZ 4 NOTARCH [OMIT LAST 2 LINES IF LIBRARIAN ENTRA
9S22 MHUNTW 2,FILE,ENT
9SFL JBS NOTARCH,2,BEEXO
9S^= LDX 5 EINC(2)
9TDW BZE 5 NOTDUMPED
9TYG HUNT 3,COMDAT,CSETP
9WD6 ADN 3 APARA+54
9WXQ LDN 2 W3(1)
9XCB MOVE 2 18 [TITLES FOR FOURTHLINE
9XX2 LDX 4 ACES
9YBL CALL 7 XCONV
9YW= STO 4 5(3)
9^*W STO 5 6(3)
9^TG LDX 0 EDLD(2)
=2*6 CALL 5 SDATECON
=2SQ ADN 3 APARA+69
=3#B MOVE 2 2
=3S2 HUNT 2,FILE,ENT
=4?L LDX 0 ETLD(2)
=4R= CALL 5 TIMECON
=5=W ADN 3 APARA+65
=5QG MOVE 2 2
=6=6 MHUNT 3,COMDAT,CSETP
=6PQ LDN 0 72
=79B ADS 0 ANUM(3)
=7P2 LDN 4 0
=88L BRN NOTD1
=8N= NOTDUMPED
=97W HUNT 3,COMDAT,CSETP
=9MG LDN 4 18
==76 NOTD1
==LQ ADN 3 APARA+72
=?6B SBX 3 4
=?L2 LDX 1 FX1
=#5L LDN 2 W4(1)
=#K= MOVE 2 18 [FIFTH LINE TITLES
=*4W HUNT 2,FILE,ENT
=*JG LDX 5 ECOPS(2) [COPIES AND BLOCKS
=B46 SRL 5 15 [COPIES FIRST
=BHQ LDX 1 4
=C3B CALL 7 XCONV
=CH2 LDX 4 1
=D2L LDX 1 FX1
=DG= STO 5 10(3) [STORE NUMBER OF BLOCKS
=D^W LDEX 0 ECOPS(2)
=FFG ORX 0 ACES
=F^6 ERN 0 #20
=GDQ STO 0 6(3)
=GYB MHUNT 2,COMDAT,CSETP
=HD2 LDN 0 72
=HXL ADS 0 ANUM(2)
=JC= MHUNTW 3,FILE,ENT
=JWW LDX 0 BIT9
=KBG ORX 0 BIT11
=KW6 ANDX 0 EINF2(3)
=L*Q BZE 0 NOTARCH
=LTB ADN 2 APARA+91
=M*2 SBX 2 4
=MSL LDX 0 EINF2(3)
=N#= ANDX 0 BIT9
=NRW BZE 0 NOTUSER
=P?G ADN 1 UARCH
=PR6 MOVE 1 3
=Q=Q SBN 1 UARCH
=QQB NOTUSER
=R=2 ADN 2 6
=RPL LDX 0 EINF2(3)
=S9= ANDX 0 BIT11
=SNW BZE 0 NOTMAN
=T8G ADN 1 MARCH
=TN6 MOVE 1 4
=W7Q NOTMAN
=WMB MHUNT 2,COMDAT,CSETP
=X72 LDN 0 44
=XLL ADS 0 ANUM(2)
=Y6= NOTARCH
=YKW #
=^5G XIT
=^K6 ... ACROSS SETPARAM,4
?24Q XCONV
?2JB STO 7 GEN0 [LINK
?342 STOZ 6 [BINARY TO DECIMAL CONVERSION
?3HL SMO FX1 [SUBROUTINE
?43= DVR 5 WW
?4GW LDCT 7 #200
?52G LDN 2 4
?5G6 ORX 2 GSIGN
?5^Q MODE 1 [ZERO 1ST 5 CHARS
?6FB LDN 0 5 [
?6^2 T10
?7DL CBD 6 0(2) [CONVERT TO DECIMAL
?7Y= BCHX 2 T17
?8CW T17
?8XG BCT 0 T10
?9C6 MODE 0 [CHANGE MODE TO MON-ZERO SUPPRESION
?9WQ CBD 6 0(2) [FOR LAST CHAR AND CONVERT IT
?=BB LDX 7 GEN0 [RESTORE LINK
?=W2 HUNT 2,FILE,ENT
??*L EXIT 7 0
??T= #
?##W #
?#SG #END
^^^^ ...662115710003