{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: READOPLN867)}}
====== READOPLN867 ======
(George Source)

**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:CHANG|CHANG]], [[george:macro:CONSOLE|CONSOLE]], [[george:macro:DERINGD|DERINGD]], [[george:macro:FLIP|FLIP]], [[george:macro:FREECORE|FREECORE]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:PCTHUNT|PCTHUNT]], [[george:macro:PHOTO|PHOTO]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SLEEP|SLEEP]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TESTMOVE|TESTMOVE]]

<code - READOPLN867.txt>22FL    #SEG  READOPLN8                    [G CONSTANTINIDES
22PD ...#      COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982   
22^=    #LIS  K0READOPLN>K0PCT>K0ALLGEO>K0GREATGEO  
23DW                   8HREADOPLN   
23YG    # ENTRY POINTS  
24D6          SEGENTRY K1READOPLN,Z1READOPLN
24XQ          MENDAREA APCTGAP,K99READOPLN  
25CB    #     THIS SEGMENT TAKES A LINE OF INPUT FROM A REMOTE OPERATORS
25X2    #     CONSOLE,CONVERTS IT (STRIPS ETB,ETX) AND PLACES IN AN ADATA   
26BL    #     CREADL BLOCK. 
26W=    X76   #76   
27*W    STXNL #76227631 
27TG          #76357620 
28*6    NLETX #76327635 
28SQ          #76047623 
29#B    #   
29S2    Z1READOPLN  
2=?L          MHUNTW   3,A7020,CONSIN   
2=R=          PHOTO    7
2?=W          FLIP  
2?QG    NMVD0 SLEEP    CONSOLE  
2#=6          TESTMOVE 7,NMVD1  
2#PQ          MHUNTW   3,A7020,CONSIN      [FIND THE INPUT BUFFER.  
2*9B          PHOTO    7
2*P2    NMVD1 LDCT  0  #12                 [EOT AND INOPERABLE  
2B8L          ANDX  0  EWAIT(3) 
2BN=          BZE   0  NMVD0               [J. IF NOT EOT AND INOP TO SLEEP 
2C7W          LDX   5  APCTID(3)           [PCT IDENTIFIER  
2CMG          LDEX  4  APCTID(3)
2D76          SRL   5  6
2DLQ          ANDN  5  #7700               [MASK OUT INTERFACE BIT POSITION 
2F6B          LDX   1  3
2FL2          PCTHUNT  1                   [ADDRESS OF INFORM BLOCK 
2G5L          LDX   6  ALINESTAT(1)        [REMEMBER STATE OF LINE  
2GK=          ADX   1  4                   [POSITION ON CORRECT TERMINAL
2H4W          ORS   5  APCTD(1)            [SET THE NO ACTIVITY BIT 
2HJG          DERINGD  FPTPCT(3)           [FREE THE BLOCK FROM THE RING.   
2J46          BNG   6  OFFED               [J. IF BEING MOPPED OFF. 
2JHQ          LDX   6  CICOUNT(3)          [COUNT OF CHARACTERS READ IN.
2K3B          BZE   6  OFFED               [J IF PCT IS INOP
2KH2          LDX   5  6
2L2L          ADN   6  11                  [ROUND TO WORDS. ADD 2 FOR RED TAPE. 
2LG=          SRL   6  2
2L^W          SETUPCOR 6,2,FILE,FRB        [SET UP DATA BLOCK TO HOLD INPUT.
2MFG          TESTMOVE 7,NMVD2  
2M^6          MHUNTW   3,A7020,CONSIN   
2NDQ    NMVD2 LDN   0  CIBUFF(3)           [POINTER TO INPUT.   
2NYB          LDN   1  A1+2(2)  
2PD2          STO   5  A1(2)               [COUNT OF CHARACTERS IN RAW MESSAGE. 
2PXL          SMO      6
2QC=          MOVE  0  -2                  [MOVE IN THE RAW MESSAGE.
2QWW          FREECORE 3                   [FREE THE INPUT BUFFER.  
2RBG          CHANG                        [CONVERT FROM LINE CODE TO GRAPHIC.  
2RW6 ...      ACROSS   COMPROA,1            [SEND THE MESSAGE TO COMMAND PROCESS
2S*Q    OFFED SUICIDE                      [IGNORE INPUT IF MOPPING OFF.
2STB    #   
2T*2    #   
2TSL    #END
^^^^ ...43727131000100000000
</code>