15 22FL #LIS K0PROGISH>K0ALLGEO>K0GREATGEO>K0COMMAND 15 22_= #SEG PROGISH60 [ BILL IZATT 7 23DW 8HPROGISH 15 23YG [ ENTRY POINT. THIS LOCATION MUST REMAIN FIXED 11 24D6 SEGENTRY K1PROGISH,QENTRY1 7 24K# ...#SKI JWPHASE4 11 24QG ... SEGENTRY K2PROGISH,QENTRY2 4 24XQ [ 4 25CB [ 21 25X2 # THIS SEGMENT DEALS WITH THE PERI TYPE 60 EXTRACODE,MODES 1 AND 2. 20 26BL # MODE 1 IS USED FOR ISSUING COMMANDS FROM AN OBJECT PROGRAM. 20 26W= # MODE 2 IS USED FOR READING THE PARAMETERS OF THE COMMAND THAT 10 27*W # ENTERED THE PROGRAM 20 27TG # MODE 2 WILL READ PARAMETERS EITHER SERIALLY OR RANDOMLY.THE 20 28*6 # LATTER CASE IS DISTINGUISHED FROM THE FORMER BY SETTING THE 19 28SQ # REPLACEMENT BIT IN THE TYPE/MODE WORD OF THE CONTROL AREA 11 29#B # REFERRED TO BY THE PERI 5 29S2 QENTRY1 16 2=?L DATUMB 3,FX2 [DATUM OF OBJPROG 21 2=R= LDN 7 4 [ADDRESS TO WHICH WORDS TO BE MOVED 18 2?=W LDN 6 4 [NO. WORDS TO BE MOVED 11 2?QG OUTMOVE 3,EVENT2(2),7,6 15 2#=6 LDX 5 6 [CHAR COUNT 8 2#PQ ANDN 5 #777 15 2*9B LDX 6 4 [LOAD IN X6 15 2*P2 ANDX 6 MASKA(1) [RETAIN MODE 16 2*S6 ... BXE 6 THREE(1),PBRK [J IF MODE 3. 8 2*X= ... LDCT 0 #600 7 2B2B ... ANDX 0 7 18 2B5G ... BNZ 0 XILL [ILLEGAL IF NOT CHAR 0 9 2B8L TXU 6 TWO(1) 16 2BN= BCC PARAM [J IF MODE TWO 9 2D76 TXU 6 ONE(1) 17 2DLQ BCS RILLEGAL [J IF NOT MODE ONE 19 2F6B # THIS SECTION DEALS WITH MODE 1 (PROGRAM ISSUED COMMANDS) 16 2FL2 LDX 6 5 [LOAD COUNT IN X6 8 2G5L BZE 5 P4 7 2GK= ADN 5 3 7 2H4W SRL 5 2 12 2HC? ... CHECKB 7,5,WORDA,FX2,,WORDB 15 2HPN ...[ CHECKB BUFFER. OPCA HAS DONE CONTROL AREA. 17 2J46 WORDB ADN 5 2 [2 WORD RECORD HDR 18 2JHQ GETCORE 5,1 [GET BLOCK FOR COMMAND 7 2K3B FINDCORE 3 18 2KH2 NAME 3,ADATA,CREADL [NAME AS READLINE BLOCK 19 2L2L STO 6 A1(3) [STORE CHAR COUNT IN BLOCK 16 2LG= ADN 3 A1+2 [CHAR POS IN RL 16 2L_W DATUMB 4,FX2 [DATUM OF OBJPROG 17 2MFG SBN 5 2 [NO WORDS IN AREA 9 2M_6 OUTMOVE 4,7,3,5 8 2NDQ SMO FX2 9 2NYB LDX 3 EVENT2 17 2PD2 CAPCA ADATA,CREADL [TAKE BLOCK INTO CPA 10 2PXL LDX 0 PROGCON(1) 17 2QC= ORS 0 CONTEXT(2) [SET IC CONTEXT BIT 10 2QWW ISSUCOMB PROGERR,XBRK 4 2RBG P5 7 2RW6 LDN 5 0 4 2S*Q P2 9 2STB LDX 7 PMAS(1) 15 2T*2 ANDS 7 CONTEXT(2) [LOSE IC BIT 4 2W#= P1 18 2WRW ADN 3 1 [ADDRESS OF REPLY WORD 9 2X?G ... GETWORD 3,2,WRITE 8 2_=2 STO 5 0(2) 7 2_?Y ... WORDFIN 10 2_*W ... LDX 0 CONTEXT(2) 8 2_CS ... ANDN 0 #4000 18 2_FQ ... BNZ 0 RUNP [J IF STILL FULLY STARTED 10 2_FS ... LDX 0 JOBEVENTS(2) 14 2_FW ... BNG 0 RUNP [J IF BROKEN IN 7 2_FY ...#SKI JWPHASE4 4 2_G6 ...( 17 2_G# ... HLSINFORM SAVEABLE,FSTART,JOBNO(2),,,,XFSLINK(1) 8 2_GC ... BRN RUNP 5 2_GG ...QENTRY2 10 2_GN ... HLSINFRT RUNP,FSTART 4 2_GW ...) 8 2_H4 ...#SKI JWPHASE4<1$1 4 2_H= ...( 7 2_HN ... NGN 6 1 10 2_KL ... ACROSS FULSTART,1 4 2_LK ...) 4 2_MJ ...RUNP 7 2_PL RUNPROG 4 329= P4 9 32NW #SKI K6PROGISH>99-99 10 338G TRACE 5,ZERCOUNT 8 33N6 LDX 2 FX2 9 347Q LDX 3 EVENT2(2) 6 34CJ ... CAPCA 8 34MB BRN P1 5 3572 PROGERR 18 35LL LDCT 5 16 [SET B4=1 IN REPLY WORD 8 366= BRN P2 4 36KW XBRK 9 375G LDCH 4 EXT+10(2) 9 37K6 TXU 4 THREE(1) 8 384Q BCS P5 7 38JB STEPBACK 9 3942 LDX 7 PMAS(1) 10 39HL ANDS 7 CONTEXT(2) 7 3=3= PROGBRKIN 10 3=GW WORDA ILLEGAL RESVIOL,PERI4 5 3?2G RILLEGAL 8 3?#X ... ILLEGAL MODE 8 3?M# ...XILL ILLEGAL CHAR 20 3?_Q # THIS SECTION DEALS WITH MODE 2 (READING PROGRAM PARAMETERS) 5 3#FB PARAM 7 3#_2 LDX 6 5 7 3*DL ADN 6 3 17 3*Y= SRL 6 2 [NO. WORDS IN AREA 12 3BCW CHECKB 7,6,WORDA,FX2,W,WORDC 8 3BXG WORDC BNG 4 REPX 8 3CC6 LDX 4 GSIGN 9 3CWQ PQ LDX 3 EVENT2(2) 9 3DBB STO 3 AWORK1(2) 6 3DW2 CAPCA 8 3F*L BPZ 4 PT 7 3FT= SPARAPAS 4 3G#W ...PF 10 3K=L HUNT 2,CPB,CUNI 9 3KQ= LDX 4 ANUM(2) 16 3L9W BNG 4 SETB4 [J IE NO PARAM 15 3LPG BZE 4 WFIN [J IF NULL 8 3M96 ANDN 4 #7777 7 3MNQ TXL 4 5 20 3N8B BCS POR [J IF PARAM SHORTER THAN COUNT 7 3NN2 LDX 4 5 16 3P7L POR STO 5 JPARNUM(2) [STORE NL. CHARS 19 3PM= SBS 4 JPARNUM(2) [FIND UNEXPIRED CHAR COUNT 19 3Q6W ... LDN 6 APARA [POINTER TO CHARS FOR TRANSFER 8 3QLG BZE 4 WIN 7 3R66 LDN 5 0 20 3RKQ SRL 45 2 [X4 NO. WHOLE WORDS TO BE MOVED 8 3S2B ... BZE 5 P3 7 3SC2 ... ADN 4 1 10 3SRL ...P3 GETWORD 7,2,WRITE,3,4 8 3T8= ... BXGE 3 4,P3A 10 3TJW ... MHUNT 1,CPB,CUNI 7 3T_G ... ADX 1 6 8 3WB6 ... MOVE 1 0(3) 7 3WQQ ... ADX 6 3 7 3X7B ... ADX 7 3 7 3XJ2 ... SBX 4 3 8 3XYL ... BRN P3 8 3Y*= ...P3A BZE 5 P3B 7 3YPW ... SBN 4 1 7 3_6G ...P3B SLL 45 2 10 3_H6 ... MHUNT 1,CPB,CUNI 7 3_XQ ... LDX 3 1 7 42#B ... ADX 1 6 7 42P2 ... SMO 4 7 435L ... MVCH 1 0 7 43G= ... LDX 2 3 10 43XB WIN LDX 5 JPARNUM(2) 7 44C2 WFIN FREECORE 2 9 44WL LDX 3 AWORK1(2) 8 45B= BRN P1 18 45TW SETB4 LDCT 0 16 [SET B4=1 IN REPLY WORD 7 46*G ORX 5 0 8 46T6 BRN WFIN 9 47#Q REPX LDX 4 EVENT5(2) 8 47SB SRL 4 21 8 48#2 ADDRESS 3,4,2 14 48RL LDX 4 0(2) [GET X 8 49?= LDX 2 FX2 17 49QW ANDN 4 #777 [ISOLATE BITS 15-23 8 4==G BRN PQ 7 4=Q6 PT LDN 3 0 8 4?9Q SPARANOX 4,3 8 4?PB BRN PF 4 4#92 # 19 4#NL # THIS SECTION DEALS WITH MODE3 - TO EFFECT A PSEUDO BRKIN 4 4*8= # 8 4*MW PBRK FJOPCA 3,2 9 4B7G LDX 4 JMISC(3) 17 4BM6 BNG 4 RILLEGAL [J IF BACKGROUND JOB 9 4C6Q LDX 4 EVENT2(2) 7 4CLB LDN 5 0 18 4D62 ADN 4 1 [ADDRESS OF REPLY WORD 16 4DKL DATUMB 6,2 [ STORE ZERO IN 17 4F5= ADDRESS 6,4,2 [ PROGRAM'S REPLY 14 4FJW STO 5 0(2) [ WORD 16 4G4G CAPCA [CHANGE TO CPAT 8 4GJ6 LDX 4 GSIGN 16 4H3Q ORS 4 JOBEVENTS(2) [SET BRK IN BIT 20 4HHB PROGBRKIN [RETURN TO CP AT BRK-IN ENTRY FOR 15 4J32 [ PROGRAMS 9 4JGL MASK #17777777 9 4K2= MASKA #77777 8 4KFW ONE +1 8 4K_G TWO +2 8 4LF6 THREE +3 9 4LYQ PROGCON #10000 9 4MDB PMAS #77767777 7 4MG_ ...#SKI JWPHASE4 4 4MKJ ...( 5 4MN7 ...XFSLINK 9 4MQQ ... LINK PROGISH,2 4 4MT* ...) 10 4MY2 MENDAREA 15,K99PROGISH 4 4NCL #END 8 ____ ...20254770000300000000