{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: NEWA867)}}
====== NEWA867 ======
(George Source)
**Macros used:** [[george:macro:BXL|BXL]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SPARANOX|SPARANOX]], [[george:macro:SSCOR|SSCOR]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:STEPWRITE|STEPWRITE]], [[george:macro:UNLOAD|UNLOAD]]
22FL #LIS K0NEW>K0ALLGEO>K0GREATGEO>K0LIBRARY
22^= SEG NEWA,65,N.R.BOULT,LIBRARY
23DW SEGENTRY K1NEWA,QK1NEWA
23JR ...[
23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23SK ...[
23YG SEGENTRY K2NEWA,QK2NEWA
243L ... FSHENTRY K3NEWA,,ZBRKINB,ZBRKINB
246Q ... FSHENTRY K4NEWA,,ODRAWN,ODRAWN
249W ... FSHENTRY K5NEWA,QK5NEWA,,QK5NEWA
24*2 ... FSHENTRY K7NEWA,,QK7NEWA,QK7NEWA
24D6 ZODRAWN +BUDGODR
24XQ ZINC +BUDGINC
25CB ZSPA +BUDGSPA
25X2 QK1NEWA
26BL # SPACEMT BUDGET OVERDRAWN OR ZERO
26C* ... LDX 0 AWORK4(2)
26D4 ... BZE 0 ODR6
26DR ... SSEARCH ODR6,7
26FG ... STEPWRITE
26G9 ... SSCOR 0(3),DEC
26GY ... STOZ AWORK4(2)
26HM ...ODR6 CALL 5 SYSCLOSE
26W= ODRAWN
27*W SMO FX2
27TG LDX 2 CPPTR
28*6 BZE 2 ODR5
28F3 ...XINA
28NT ...UNLD
28SQ UNLOAD ,,,UNL,AUT
29#B ODR5
29S2 BNG 3 ODR3
2=?L LDX 4 ZODRAWN(1)
2=R= BRN ODR4
2?=W ODR3
2?QG LDX 4 ZINC(1)
2#=6 ODR4
2#PQ LDN 3 0
2*9B MHUNT 1,AONBS,GLIST
2*P2 LDX 7 ALOGLEN(1)
2B8L SBN 7 1
2BN= ODR1
2C7W ADN 3 1
2CMG SMO 3
2D76 LDX 0 A1(1)
2DLQ BZE 0 ODR2
2F6B SPARANOX 3
2FL2 LDX 5 ZSPA(1)
2G5L ERRORX 4,5
2GK= MFREE CPB,CUNI
2H4W MHUNT 1,AONBS,GLIST
2HJG ODR2
2J46 BXL 3 7,ODR1
2JHQ FREECORE 1
2K3B # END OF COMMAND
2KH2 TEND
2LG= MHUNT 1,FLIB,FMES
2L^W LDX 0 A1(1)
2MFG SMO FX2
2M^6 STO 0 CPPTR
2NDQ FREECORE 1
2NYB ENDCOM
2PD2 # BREAKIN
2PXL QK2NEWA
2QC= ZBRKIN
2QWW CALL 5 SYSCLOSE [CLOSE ANY OPEN FILES
2RBG LDX 0 AWORK4(2)
2RW6 BPZ 0 ZBRKINB [J UNLESS COUNT OF REQUESTERS UPDATED
2S*Q OPENSYS ZBRKIN,SERIAL,GENERAL
2STB SSEARCH ZBRKINA,7 [LOOK FOR ENTRY IN :SYSTEM.SERIAL
2T*2 STEPWRITE
2TSL SSCOR 0(3),DEC [DECREASE COUNT OF REQUESTERS
2W#= ZBRKINA
2WRW CLOSETOP
2X?G ZBRKINB
2XR6 LDX 0 CPPTR(2)
2Y=Q BZE 0 YBRKIN [J UNLESS TAPE ALLOCATED
2YCY ...X2INA
2YQB UNLOAD ,,,UNL,AUT [UNLOAD TAPE
2^=2 YBRKIN
2^PL MHUNT 1,FLIB,FMES
329= LDX 0 A1(1)
32NW SMO FX2
338G STO 0 CPPTR
33N6 FREECORE 1
347Q COMBRKIN
34MB #
3572 # SUBROUTINES
35LL #
366= # SUBROUTINE TO CLOSE ANY OPEN FILES
36KW # X5 HOLDS THE LINK. ON EXIT X1=FX1 , X2=FX2
375G SYSCLOSE
37K6 SBX 5 FX1
384Q SCL1
38JB SMO FX2
3942 LDX 0 AWORK3
39HL BZE 0 SCL2
3=3= CLOSETOP
3=GW LDN 0 1
3?2G SBS 0 AWORK3(2)
3?G6 BRN SCL1
3?^Q SCL2
3#FB ADX 5 FX1
3#^2 EXIT 5 0
3*DL MENDAREA 50,K99NEWA
3*Y= #END
^^^^ ...74554307000100000000