{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: OFFREL867)}}
====== OFFREL867 ======
(George Source)
**Macros used:** [[george:macro:ADDSKIP|ADDSKIP]], [[george:macro:BFCBX|BFCBX]], [[george:macro:CHANGEACT|CHANGEACT]], [[george:macro:CHANGEPER|CHANGEPER]], [[george:macro:CLOSE|CLOSE]], [[george:macro:CLOSEMULT|CLOSEMULT]], [[george:macro:CLOSETAPE|CLOSETAPE]], [[george:macro:COOR3|COOR3]], [[george:macro:DOWN|DOWN]], [[george:macro:ERROR|ERROR]], [[george:macro:FILENUMB|FILENUMB]], [[george:macro:FINDACTNO|FINDACTNO]], [[george:macro:GSCAN|GSCAN]], [[george:macro:JBS|JBS]], [[george:macro:LINK|LINK]], [[george:macro:LOCK|LOCK]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MBC|MBC]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MURDER|MURDER]], [[george:macro:PERTYPNO|PERTYPNO]], [[george:macro:POP|POP]], [[george:macro:PSTAC|PSTAC]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:TOPFCA2|TOPFCA2]], [[george:macro:TRACEIF|TRACEIF]], [[george:macro:UNLOCK|UNLOCK]], [[george:macro:UP|UP]]
22FL SEG OFFREL,867,SECT.FILE,FILESTORE,G550
22HJ ...[
22KG ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
22MD ...[ THIS EXCLUDES CODE UNDER #SKI G550
22PB ...[
22R# ...#OPT G550 = 0
22T= ...#SKI G550&1
22X8 ...# WITH G3UG EDIT M550 (LINE PRINTER OUTPUT DIRECT TO MAGNETIC TAPE)
22^= SEGENTRY K3OFFREL,Z3OFFREL
23DW # ENTRY AT K3OFFREL IS THE PART FOR RELEASING PSEUDO/ONLINE AND
23YG # OFF-LINE PERIPHERALS. ANY FILES OPEN TO THE AOLPT CONCERNED ARE
24D6 # CLOSED AND THE AOLPT BLOCK ITSELF AND ANY ASSOCIATED DATA BLOCKS
24XQ [ ARE MURDERED
25CB Z3OFFREL
25X2 LDX 3 ACOMMUNE8(2) [ENTRY FOR ORELP MACRO
25XL #UNS K6FREEBUFF-500
25Y= #SKI
25YW (
25^G LONGSET #62,XFRIG [ WAIT FRIG
2626 LONGSTOP XFRIG [ TO GO TRUELY DORMANT
262Q XFRIG
263B )
2642 [
264L [ IF OLPA IS CURRENTLY BEING FREEBUFFED THEN WE WAIT
265= [
265C ... LDCH 0 ATYPE(3)
265J ... SBN 0 AOLPT/64
265P ... BNZ 0 NOTOLP
265W POP WAITED,3,FBOFFWAIT
266G #UNS K6FREEBUFF>199-199
2676 BRN NOWAITED [ FOR TESTING ONLY
267Q WAITED
268B #UNS K6FREEBUFF>199-199
2692 (
269L TRACEIF K6FREEBUFF,199,499,BFSTATE(3),OFF SEMA
26== TRACEIF K6FREEBUFF,199,499,ALINK1(3),OFF LINK
26=W ADDSKIP K6FREEBUFF>199-199,INSTPARAM+4
26?G NOWAITED
26#6 #SKI K6FREEBUFF-500
26#Q #SKI
26*B COOR3 #62 [ WAIT HOLDING SEMAPHORE
26B2 )
26B# ...NOTOLP
26BL FILENUMB 7,3
26W= BZE 7 NOUNLOCK
27*W LDX 4 2 [SAVE FX2
27TG LDN 6 #10
28*6 ANDX 6 AFLAG(2) [TEST IF LOCK
28SQ BNZ 6 NOLOCK
29#B LOCK 2 [ LOCK CPAT
29S2 NOLOCK
2=?L CHANGEAC 3 [CHANGE TO OLPA
2=R= LDCH 0 ATYPE(3)
2?=W SBN 0 AOLPT/64
2?QG BNZ 0 NOTP [J UNLESS AOLPT
2#=6 TOPFCA2 1
2#PQ MBC 1,BASTEPWAIT,BAAPPWAIT
2*9B LDX 0 ATMARK(2)
2*P2 BNZ 0 NOTP [J IF NOT OFFLINE
2B8L LDX 0 FTYPNO(2)
2BN= SRL 0 15
2C7W SBN 0 1
2CMG BNZ 0 NOTP [J IF NOT TP
2D76 DOWN TPOBJ,3 [FINISH THE TRANSFER
2DLQ NOTP
2F6B CHANGEST 4 [CHANGE FILE(S) TO CPAT
2FL2 CHANGEAC 4
2G5L BNZ 6 NOUNLOCK
2GK= UNLOCK 4
2H4W NOUNLOCK
2HJG LDX 5 JOBNO(3)
2J46 LDX 6 FTYPNO(3)
2JHQ GSCAN 5,JOB RLTU,2 [[X5]=JOB NUMBER ;[X6]=TYPE/UNIT RELE
2JJ? ...#SKI G550&1
2JJS ...(
2JK* ... LDN 0 AOLPTLEN+AZFLEN
2JKW ... TXU 0 ALOGLEN(3)
2JLC ... BCS XMTLP [ NOT *LP O/P TO *MT
2JLY ... LDX 4 ACTNUM(2) [ CPAT
2JMF ... CHANGEACT 3 [ AOLPT - LOCKED THROUGHOUT
2JN2 ... DOWN NETOFLNE,3 [ TO WRITE END OF O/P TO TAPE
2JNH ... LDX 5 ACOMMUNE1(2) [ ERROR INDICATOR
2JP4 ... FINDACTNO 2,4,(GEOERR)
2JPK ... LDX 4 2 [ KEEP X2 OVER CHANGEPER
2JQ6 ... CHANGEPER 2 [ HAND OVER TAPE TO CPAT
2JQM ... LDX 2 4 [ RECOVER CPAT PTR
2JR8 ... CHANGEACT 2 [ CLOSETAPE MUST BE DONE IN CPAT
2JRP ... CLOSETAPE
2JS= ... BZE 5 SHUTOK [ REPLY FROM NETOFLNE, NOT CLOSETAPE
2JSR ... PERTYPNO 6 [ *LP DEVICE IDENTITY
2JT# ... SETNCORE APARA+1,1,CPB,CUNI
2JTT ... LDX 5 ACOMMUNE9(2) [ TRAILER LABEL O/P FAILED -
2JWB ... STO 5 APARA(1) [ SET UP MESSAGE
2JWX ... LDN 0 4 [ FOR COMMAND ERROR
2JXD ... STO 0 ANUM(1)
2JX^ ... LDN 0 1 [ RELEASE MAY BE DUE TO
2JYG ... STO 0 JPARNUM(1) [ COMMAND OR EXTRACODE, SO
2J^3 ... ERROR JRELFAIL [ O/P ERROR BUT DO NOT CRUNCH
2J^J ...SHUTOK [ *MT CLOSE OK - NORMAL PATH
2K25 ...XMTLP [ STANDARD PATH
2K2L ...)
2K3B MURDER 3 [GET RID OF OLPA & DATA BLOCKS
2KH2 BZE 7 UP [EXIT IF NO FILE OPEN
2L2L TOPFCA2 1
2LG= LDN 5 1
2L^W JBS STREAMCOMP,1,BAMULT [J IF MULTIFILE ELEMENT
2MFG LDN 5 0
2M^6 PSTAC 1,1
2NDQ BFCBX 1,1 [GET X1->FCB
2NYB JBS SDF,1,BFSDF [J IF SDF
2PD2 STREAMCOMP
2PXL CLOSE
2QC= BZE 5 UP [J IF NOT MULTIFILE ELEMENT
2QWW SDF
2RBG CLOSEMULT
2RL# MFREE FILE,FABSNB
2RW6 UP
2S*Q UP
2STB [
2T*2 MENDAREA AOLPGAP,K99OFFREL
2TSL #END
^^^^ ...26652451000200000000