NLIST           ;SYMBOLSKE KONSTANTER FOR COMAL - 790710;***************************************************************************;;;     III   DDD        CCC      OO       M      M       A      L;      I    D  D      C        O  O      M M  M M      A A     L;      I    D  D      C        O  O      M   M  M     AAAAA    L;     III   DDD        CCC      OO       M      M    A     A   LLLLL;;; TOM \STERBY, INSTITUTTET FOR DATATEKNIK;;********************************************************************;*        BAS11  - DEFINITION AF SYMBOLSKE KONSTANTER;********************************************************************;;;;*********************************************************************; STYRING AF BETINGET ASSEMBLERING;*********************************************************************;ONN:   EQU     1OFF:   EQU     0NON:   EQU     1;MULTI: EQU     OFF     ;VERSION FOR FLERE BRUGEREFUERR: EQU     ONN     ;FEJLMEDDELELSER SOM TEKST (ONN), NUMRE (OFF)DEDIC: EQU     ONN     ;DEDIKERET SYSTEMSOROC: EQU     ONN     ;VERSION FOR SOROC DATASK[RMTEC:   EQU     OFF     ;VERSION FOR MICRO TEC DATASK[RMTEC70: EQU     OFF     ;VERSION FOR TEC MODEL 70;;;*************************************************************;  DIVERSE SYSTEMPARAMETRE;*************************************************************;PREC:  EQU       4ANCI:  EQU       6    ; ANTAL AF CIFREILLEG: EQU     #31ANBL:  EQU     #2      ; ANTAL BLANKE TIL IND/UDRYKNINGMAXI:  EQU     #16     ;MAKSIMALT ANTAL TEGN I IDENTIFIKATORERKRMAX: EQU     #20     ;MAKSIMALT ANTAL LINIER INDEN REGNEKREDSEN                       ; SKAL FRIGIVESMAXBF: EQU     #79     ;MAKSIMALT ANTAL TEGN I UDDATABUFFER;;;;;*************************************************************; DEFINITION AF KONTROLKODER FOR DATASK[RM;*************************************************************;LF:    EQU     0ACR:    EQU     0DBELL:  EQU     07;;       IF      TECCNTRL: EQU     1B      ;ESCAPE CHARACTERESCAP: EQU     0HOME:  EQU     1EEEOL:  EQU     0B      ;ERASE TO END OF LINEEEOS:  EQU     05      ;ERASE TO END OF PAGEUPC:   EQU     0B      ;CURSOR UPDOWNC: EQU     0A      ;CURSOR DOWN       ENDIF       IF      SOROCCNTRL: EQU     1BESCAP: EQU     7FHOME:  EQU     1EEEOL:  EQU     'T'EEOS:  EQU     '*'UPC:   EQU     0BDOWNC: EQU     0A       ENDIF       IF      TEC70CNTRL: EQU     1BESCAP: EQU     1BHOME:  EQU     08EEOL:  EQU     0BEEOS:  EQU     05UPC:   EQU     01DOWNC: EQU     02       ENDIF;;;;**************************************************************************;;               DIREKTE ADRESSERBARE ARBEJDSCELLER;;**************************************************************************;;MSTRT: EQU     6800;KTPX:  EQU    MSTRT     ; S[TNINGSNUMMER UNDER UDF\RELSEKTPY:  EQU    KTPX+2    ; 1. S[TNINGSNUMMER UDEN FOR TILLADTINTERVAINDP:  EQU    KTPY+2    ; INDEHOLDER PIL VED SYNTAKSANALYSE OG UDPEUDPI:  EQU    INDP+2    ; ANGIVER LAGRINGSADRESSE FOR UDSKRIFTFLAGS: EQU    UDPI+#2   ; DIVERSE FLAG (SE NEDENFOR)INVT:  EQU    FLAGS+1   ; INDEHOLDER STARTREFERENCE TIL VARIABELTABINIB:  EQU    INVT+2    ; INDEHOLDER STARTREFERENCE TIL INDBUFFERINPS:  EQU    INIB      ; INDEHOLDER STARTREFERENCE TIL PROGRAMSTAKINUB:  EQU    INIB+2    ; INDEHOLDER STARTREFERENCE TIL UDBUFFERINPR:  EQU    INUB+2    ; INDEHOLDER STARTREFERENCE TIL PROGRAMOMR]FGST:  EQU    INPR+2    ; ANTAL I PROGRAMSTAK, 1 BYTEFGSP:  EQU    FGST+1    ; PIL TIL PROGRAMSTAKTEGN:  EQU    FGSP+2    ; TEGN INDL[STSKTT:  EQU    TEGN      ; TEGN TIL UDSKRIVNINGBLAN:  EQU    SKTT+1    ; ANTAL BLANKE I INDRYKNING VED PRINTCSEMA: EQU     BLAN+1   ; ADRESSE P] KONSOLSEMAFORLSEMA: EQU     CSEMA+2  ; ADRESSE P] LISTSEMAFORUSEMA: EQU     LSEMA+2  ; ADRESSE P] UDDATASEMAFORREGIN: EQU     USEMA+2  ; NUMMER P] AKTUEL HOVEDLAGERREGIONFILSY: EQU     REGIN+1  ; PIL TIL AKTIVE FKB I FKB-K[DEFKBFR: EQU     FILSY+2  ; PIL TIL F\RSTE FKB I FKB K[DEPARA:  EQU     FKBFR+2  ; FILNAVNDRIVX: EQU     PARA+8   ; PLADELAGERBETEGNELSETALB:  EQU     DRIVX+2  ; TALBUFFERXP10:  EQU    TALB+#21  ; 10-EXPONENTPUPO:  EQU     XP10+1PUEK:  EQU    PUPO+1    ; PUNKTUM EKSISTEREROPSP:  EQU    PUEK+1    ; OPERANDSTAKPOINTEROPST:  EQU    OPSP+2    ; OPERANDSTAKT[LLEROTSP:  EQU    OPST+1    ; OPERATORSTAKPOINTEROTST:  EQU    OTSP+2    ; OPERATORSTAKT[LLERPACK:  EQU    OTST+1    ; = 1 => PAKKET UDSKRIFTRNDV:  EQU    PACK+1    ; SYSTEMVARIABEL FOR PSEUDORANDOMUSTA:  EQU    RNDV+2    ; BRUGERAREALETS STATUSPSTA:  EQU    USTA+1    ; BRUGERPROGRAMMETS STATUSCHST:  EQU    PSTA+1    ; REFERENCE TIL F\RSTE PROGRAMS[TNINGRFCH:  EQU    CHST+2    ; REFERENCE TIL F\RSTE I HOPK[DESEQN:  EQU    RFCH+2SQRE:  EQU    SEQN+2    ; REFERENCE TIL S[TNING UNDER UDF\RELSENSQR:  EQU    SQRE+2    ; REFERENCE TIL N[STE S[TNINGRFLA:  EQU    NSQR+2    ; REFERENCE TIL SIDSTE I HOPK[DEDACS:  EQU    RFLA+2    ; DATAK[DENS STARTREFERENCEDACD:  EQU    DACS+2    ; REFERENCE INDEN DEN ENKELTE DATAS[T.DACW:  EQU    DACD+2    ; DATAK[DENS ARBEJDSREFERENCEDACF:  EQU    DACW+2    ; DATAK[DENS SLUTREF.DATP:  EQU    DACF+2    ; POINTER TIL F\RSTE LEDIGE I DATAAREALGDPO:  EQU    DATP+2    ;PRGP:  EQU    GDPO+2    ; POINTER FOR PROGRAMLAGRINGCAST[: EQU    PRGP+2    ; CASE T[LLER.LACAV: EQU    CAST[+1   ; LAGRING AF PIL TIL RESULTAT I CASEKRT[L: EQU    LACAV+4   ; T[LLER FOR RESERVATION AF REGNEKREDSDIVER: EQU    KRT[L+1   ; 10 OKTETTER RESERVERET FOR SENEREFINI:  EQU    DIVER+#10 ; SLUT P] DIREKTE ADRESSERBART OMR]DE;;;; DEFINITION AF DIVERSE FLAG DER LIGGER I 'FLAGS';EDITF: EQU     1       ; EDITERINGSTILSTANDAUTOF: EQU     2       ; AUTO MODEPRNTF: EQU     4       ; PRINTER RESERVERETCONTF: EQU     10      ; CONTINUE KOMMANDO LOVLIG;;;;*************************************************************;FILSYSTEM KONSTANTER;*************************************************************;BUFSE: EQU     #01     ;DISCBUFFER N:= 1N[FKB: EQU     #00     ;K[DE TIL N[STE FKBDIRSK: EQU     #02     ;DIREKT/SEKVENTIEL FLAGFKBST: EQU     #03     ;FIL STATUSFKBBZ: EQU     #04     ;FKB OPTAGET FLAGPAETI: EQU     #05     ;PLADELAGER ETIKETTE NAVNDCBDI: EQU     PAETI+8 ;ANTAL OKTETTER FRA START AF FKB TIL DKBFINIS: EQU     130+DCBDI ;L[NGDE AF EN FKB;;;;**************************************************************************;;             ARBEJDSOMR]DER, HVORTIL DER REFERERES VIA PILE;;             ; F\LGENDE OMR]DER ER DEFINERET;;    OMR]DENAVN                       L[NGDE      PIL TIL OMR]DE;; 1. OPERANDSTAK                       STKL1         OPSP; 2. OPERATORSTAK                      STKL2         OTSP; 3. PROGRAMSTAK                       STSA          INPS (*); 4. INDDATABUFFER                     BUFLI         INIB; 5. UDDATABUFFER                      BUFLU         INUB; 6. PROGRAMOMR]DE                                   INPR; 7. DATAOMR]DE                                      INVT (*); 8. VARIABELTABEL                     INVTL         INVT;; PILENE M[RKET MED (*) UDPEGER DEN F\RSTE OKTET EFTER DET; P]G[LDENDE ARBEJDSOMR]DE;; DEN SAMLEDE L[NGDE AF PROGRAM- OG DATAOMR]DET ER 'PRLEN';;***************************************************************************;STKL1: EQU     #80     ;BEREGNES SOM  PREC*#20STKL2: EQU     #20STSA:  EQU     #179BUFLI: EQU     #80BUFLU: EQU     #110PRLEN: EQU     #5300INVTL: EQU     #58;;;*****************************************************************;*    SYMBOLSKE V[RDIER FOR TERMINALE SYMBOLER.;*****************************************************************;GOTO:  EQU     #129IF:    EQU     #130FOR:   EQU     #131NEXT:  EQU     #132ON:    EQU     #133LET:   EQU     #134DIM:   EQU     #135DEF:   EQU     #136REM:   EQU     #137GOSU:  EQU     #138RETU:  EQU     #139END:   EQU     #140STOP:  EQU     #141DATA:  EQU     #142READD: EQU     #143REST:  EQU     #144INPU:  EQU     #145PRIN:  EQU     #146WHIL:  EQU     #147ENDW:  EQU     #148LOOP:  EQU     #149ENDL:  EQU     #150REPE:  EQU     #151UNTI:  EQU     #152EXITT: EQU     #153ELSE:  EQU     #154ENDI:  EQU     #155IFCL:  EQU     #156EXEC:  EQU     #157PROC:  EQU     #158ENDP:  EQU     #159CLEA:  EQU     #160CURSO: EQU     #161CASE:  EQU     #162WHEN:  EQU     #163ECASE: EQU     #164OUTP:  EQU     #165RAND:  EQU     #166OPN:   EQU     #167CLSE:  EQU     #168GET:   EQU     #169PUT:   EQU     #170WEOF:  EQU     #171CHN:   EQU     #172CLL:   EQU     #173CREA:  EQU     #174IND:   EQU     CREA+1OUTD:  EQU     IND+1EDTI:  EQU     OUTD+1;THEN:  EQU     #182TO:    EQU     THEN+1STEP:  EQU     THEN+2USIN:  EQU     THEN+3OF:    EQU     THEN+4DOK:   EQU     THEN+5;SIN:   EQU     #190COS:   EQU     #191TAN:   EQU     #192ATN:   EQU     #193EXP:   EQU     #194LOG:   EQU     #195ABS:   EQU     #196SQR:   EQU     #197INT:   EQU     #198RND:   EQU     #199SGN:   EQU     #200ASIN:  EQU     #201ACOS:  EQU     #202LN:    EQU     #203LEN:   EQU     #204ORD:   EQU     #205STATS: EQU     #206CHR:   EQU     #207TAB:   EQU     #210FN:    EQU     #211NOT:   EQU     #217AND:   EQU     #218OR:    EQU     #219UNEQ:  EQU     #225LESE:  EQU     #223BIGE:  EQU     #224EQUA:  EQU     #220BIG:   EQU     #222LESS:  EQU     #221PLUS:  EQU     #226MINU:  EQU     #227POW:   EQU     #230MUL:   EQU     #228DIV:   EQU     #229DIVH:  EQU     #231MOD:   EQU     #232MONI:  EQU     #233SEMC:  EQU     #235COMM:  EQU     #236VPAR:  EQU     #237HPAR:  EQU     #238DOLL:  EQU     #239COLO:  EQU     #240KONK:  EQU     #241NUKNS: EQU     #254;PUNK:  EQU      #46     ; '.' I ASCIIEXPC:  EQU      #37     ; 'PROCENTTEGN' I ASCIINUNC:  EQU      #35     ; '#' I ASCII;;******************************************************************;*    SYMBOLSKE V[RDIER FOR VARIABELTYPER;******************************************************************;SIRV:  EQU     #32 ; SIMPEL REEL VARIABELINRV:  EQU     #64 ; INDICERET REEL VARIABELSISV:  EQU     #96 ; SIMPEL STRENGVARIABELFUNK:  EQU    #160 ; FUNKTION (BRUGERDEFINERET)FOPA:  EQU     #192 ; FORMEL PARAMETERIPRO:  EQU    #128 ; PROCEDUREFOPP:  EQU    #48  ; FORMEL PROCEDURE PARAMETERREVA:  EQU    8    ; REEL V[RDISTCO:  EQU    #16  ; DELSTRENG ;*************************************************************;;SYMBOLISKE ADRESSE OFFSET TIL MASKIN KALD HJ[LPE RUTINER;;*************************************************************;FIXFL: EQU     0       ;FIXED TIL FLOATFLFIX: EQU     1       ;FLOAT TIL FIXEDGETNM: EQU     2       ;HENT NUMERISKEPUTNM: EQU     3       ;GEM NUMERISKEGETST: EQU     4       ;HENT STRENGPUTST: EQU     5       ;GEM STRENGDELIM: EQU     0FF     ;SYNTACTIC DELIMATOR;*************************************************************;-----------------------------------------------------------------;    KODER FOR OPERATIONER P] REGNEKREDSEN;-----------------------------------------------------------------KSIN:  EQU      2 ;KCOS:  EQU      3 ;KTAN:  EQU      4 ;KATA:  EQU      7 ;KASI:  EQU      5 ;KACO:  EQU      6 ;KEXP:  EQU     #10 ;KLOG:  EQU      8 ;KSQR:  EQU      1 ;KLN:   EQU      9 ;KPWR:  EQU     #11 ;KADD:  EQU     #16 ;KSUB:  EQU     #17 ;KMUL:  EQU     #18 ;KDIV:  EQU     #19 ;FIXD:  EQU     #30;FLTD:  EQU     #28 ;KIMU:  EQU     #46 ;KIAD:  EQU     #44 ;KISU:  EQU     #45 ;KIDI:  EQU     #47FIXS:  EQU     #31 ;PTOD:  EQU     #55 ;POPF:  EQU     #24 ;CHSF:  EQU     #21 ;PTOF:  EQU     #23PTOS:  EQU    #119FLTS:  EQU     #29XCHF:  EQU     #25;RKDA:  EQU    0E8  ; ADRESSE FOR DATA TIL REGNEKREDSENRKOP:  EQU    0E9  ; ADRESSE FOR OPERATIONSKODE/STATUS FOR                            ; REGNEKREDSEN       LIST