COMPSAJE
(George Source)
- COMPSAJE.txt
22FL #OPT K0IE=K0ALLGEO>0 22^= #OPT K0COMPSAJE=K0IE>K0ALLGEO>0 23DW #LIS K0COMPSAJE 23L4 ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982. 23R= ...#DEF EDLOOP=1 23YG # 24D6 # DICK RUSBRIDGE 24XQ # 25CB # 25X2 # THIS SEGMENT CONTAINS THE DEFINITIONS OF THE UNIVERSALS AND 26BL # INCLUDES FOR CHAPTERS USED BY THE GEORGE 3/4 INTEGRAL EDITOR 26W= # 27*W # 1 LISTING LEVELS. 27TG # ----------------- 28*6 # 28SQ #OPT K0EDITOR=K0IE>0 294J ...#OPT K0EDITORA=K0IE>0 29#B #OPT K0EDITAR=K0IE>0 29S2 #OPT K0EDITET=K0IE>0 2=?L #OPT K0EDITPT=K0IE>0 2=R= #OPT K0EDWRITE=K0IE>0 2?=W #OPT K0EDITEX=K0IE>0 2?QG #OPT K0EDIT=K0IE>0 2#=6 #OPT K0EDITER=K0IE>0 2#PQ #OPT K0EDITMFO=K0IE>0 2*9B #OPT K0OMNIERR=K0IE>0 2*P2 #OPT K0FFFNORM=K0IE>0 2B8L # 2BN= # 2C7W # 2 INCLUDES - MARK 7 ONWARDS 2CMG # -------------------------- 2D76 # 2DLQ # 2F6B # 2FL2 # 2G5L # 2GD3 ...# #INC EDITOR867 2GQD ...# #INC EDITORA865 2H4W ...# #INC EDITET7 2HJG ...# #INC EDITAR867 2J46 ...# #INC EDITPT867 2JHQ ...# #INC EDITEX7 2K3B ...# #INC EDWRITE867 2KH2 ...# #INC EDIT867 2L2L ...# #INC EDITMFO867 2LG= ...# #INC FFFNORM7 2L^W ...# #INC EDITER867 2MFG ...# #INC OMNIERR 2M^6 # 2NDQ # 3 EDITOR'S CPAT EXTENSION. 2NYB # -------------------------- 2PD2 # 2PXL #DEF IESW=A1+CPATLEN [SWITCH WORD 2QC= # 2QWW # SWITCH WORD USED AS FOLLOWS :- 2RBG # B0=1 PLEASE LIST 2RW6 # B1=1 IF LISTING PLEASE NUMBER 2S*Q # B2=1 I AM IN AN 'I' INSTRUCTION 2STB # B3=1 PLEASE WORK IN 'W' MODE 2T*2 # B4=1 IF W MODE I HAVE ALREADY LISTED THIS 2TSL # B5 FREE 2W#= # B6=1 EOF WAS READ LAST TIME 2WKL ...# B7=1 READING 1ST RECORD OF O/F (EDIT) 2WRW ...# B8=1 ACTIVITY PRIORITY REDUCED (ICT) 2X26 ...# B9-18 FREE 2X8B ...# B19=1 'D' PARAMETER PRESENT IN GEDIT 2XFQ ...# B20=1 YRTL DURING A,B OR R 2XR6 # B21=1 WE ARE DOING A GEDIT 2Y=Q # B22=1 AN F WAS GIVEN IN PREVIOUS RECORD 2YQB # B23=1 AN F WAS GIVEN IN THIS RECORD 2^=2 # 2^PL # 329= #DEF IEFS=IESW+1 [NUMBER OF EDITING FILES OPEN 32NW #DEF IEFT=IEFS+1 [TYPES 1=MOP/JS 0=REAL 338G #DEF IEIA=IEFT+1 [EDIT FILE BLOCK ADDRESS 33N6 #DEF IEIM=IEIA+1 [EDIT FILE PHOTO COUNT 347Q #DEF IEIP=IEIM+1 [EDIT FILE CHARACTER MODIFIER 34MB #DEF IEIH=IEIP+1 [EDIT FILE BLOCK END MODIFIER 3572 # 35LL #DEF IEON=IEIH+1 [NUMBER OF FILES OPEN 366= #DEF IEOA=IEON+1 [OLD FILE BLOCK 36KW #DEF IEOM=IEOA+1 [OLD FILE PHOTO COUNT 375G #DEF IEOH=IEOM+1 [OLD FILE BLOCK END MODIFIER 37K6 #DEF IEOT=IEOH+1 [OLD FILE PERIPHERAL TYPE/MODE 384Q # 38JB #DEF IENA=IEOT+1 [NEW FILE BLOCK ADDRESS 3942 #DEF IENM=IENA+1 [NEW FILE PHOTO COUNT 39HL #DEF IENH=IENM+1 [NEW FILE RECORD LIMIT(CHARACTERS) 3=3= #DEF IENL=IENH+1 [NEW FILE RECORDS LIMIT (RECORDS) 3=GW # 3?2G #DEF IEDS=IENL+1 [DUMMY SYMBOL 3?G6 #DEF IEVS=IEDS+1 [VISIBLE SPACE 3?^Q #DEF IENO=IEVS+1 [NEW ORIGIN 3#FB #DEF IEPF=IENO+1 [PFCC 3#^2 # 3*DL #DEF IEPS=IEPF+1 [PARSE START ADDRESS 3*Y= #DEF IEPC=IEPS+1 [PARENTHESEIS COUNT 3BCW #DEF IESE=IEPC+1 [SYNTAX ERROR LIMIT ADDRESS 3BXG # 3CC6 #DEF IESP=IESE+1 [SYNTAX STACK POINTER 3CWQ #DEF IECC=IESP+1 [CONDL. REPTN. STOPPING POINTER 3DBB #DEF IESY=IECC+1 [STOPPING VALUE OF IESP(TEMP) 3DW2 #DEF IEEP=IESY+1 [STOPPING VALUE OF IEIP(TEMP) 3F*L # 3FT= #SKI JDIAG1 3G#W ( 3GSG #DEF IESD=IEEP+1 [SEQUENCE WORD DUMP 3H#6 ...#DEF IEOG=IESD+1 [OLDFILE RECORD HEADER LENGTH (+A1) 3HRQ ...#DEF IENG=IEOG+1 [NEWFILE RECORD HEADER LENGTH (+A1) 3J?B #DEF IEIG=IENG+1 [EDITFILE RECORD HEADER LENGTH (+A1) 3JR2 # 3K=L #DEF IEL1=IEIG+1 [LINK COORDS. 3KQ= ) 3L9W #SKI JDIAG1<1$1 3LPG #DEF IEL1=IEEP+1 [LINK COORDS. 3M96 #DEF IEL2=IEL1+1 3MNQ #DEF IEL3=IEL2+1 3N8B #DEF IEL4=IEL3+1 3NN2 #DEF IEL5=IEL4+1 3P7L # 3PM= #DEF IEWT=IEL5+1 [<TERMINATOR> WORDS 3Q6W #DEF IENZ=IEWT+5 [THE FOLLOWING WORDS ARE CHARACTER 3QLG #DEF IEOZ=IENZ+2 [AND RECORD POINTERS TO THE OLD 3R66 #DEF IENY=IEOZ+2 [AND NEW FILE THESE ARE THREE 3RKQ #DEF IEOY=IENY+2 [SETS OF FOUR WORDS FOR THE CURRENT 3S5B #DEF IENR=IEOY+2 [POSITIONS (NOW, AT THE START OF 3SK2 #DEF IENC=IENR+1 [THIS EDITING RECORD, AT THE START 3T4L #DEF IEOR=IENC+1 [OF THE PREVIOUS EDITING RECORD) 3TJ= #DEF IEOC=IEOR+1 3W3W # 3WHG #DEF IEOW=IEOC+1 [10 ELEMENT STACK FOR POSITIONS 3X36 # [IN ALL THE OLD FILES OPEN 3XGQ # 3Y2B #DEF IESTACK=IEOW+20 [REPETITION STACK 3YG2 # 3YH= ...#UNS EDLOOP 3YJG ...#DEF IEOS=IESTACK+45 [TOTAL OLDFILE RECORD TRANSFERS 3YKQ ...#UNS EDLOOP 3YM2 ...#SKI 3YN= ...#DEF IEOS=IESTACK+35 [TOTAL OLDFILE RECORD TRANSFERS 3YWG ...#DEF IENS=IEOS+1 [TOTAL NEWFILE RECORD TRANSFERS 3^4Q ...# 3^5B ... 3^62 ...#UNS EDPOINTER 3^6L ...( 3^7= ...#DEF IEBF=IENS+1 3^7M ...#DEF IERP=IEBF+4 [CH.CHANGE COUNT FOR LETOPRUN-E8159 3^84 ...#DEF IEXT=IERP+1-A1-CPATLEN [LENGTH OF EXTENSION 3^8G ...) 3^96 ...#UNS EDPOINTER 3^9Q ...#SKI 3^=B ...( 3^#M ...#DEF IERP=IENS+1 [CH.CHANGE COUNT FOR LETOPRUN-E8159 3^BY ...#DEF IEXT=IERP+1-A1-CPATLEN [LENGTH OF EXTENSION 3^F= # 3^YW #DEF IEBF=ACOM1 [OUTPUT BUFFER 4264 ... 42?= ...) 42DG # 42Y6 # 43CQ # 43XB # ^^^^ ...507540210011