(George Source)
Macros used: ACROSS, CHANG, CONSOLE, DERINGD, FLIP, FREECORE, MENDAREA, MHUNTW, PCTHUNT, PHOTO, SEGENTRY, SLEEP, SUICIDE, TESTMOVE
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