|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15360 (0x3c00) Types: TextFile Names: »CAA42«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧ └─⟦c99ffa672⟧ Bits:30001786 SG0006 Floppy └─⟦this⟧
; CAA42 >> SMEM FINDTEGN KODESPEC AFPRØVET 21.3.83 (RETTET !!) ; CAA42 PL 21.3.83 SMEM OG FINDTEGN RETTET (IGEN!!) FÆRDIG OG KODESPEC ÆNDRET ; CAA41 (CALL ASCII NR FRA 41 - TILSV. BINÆR FIL ESS FAST NR CAB40 !!) ; CA23, DEN GAMLE CALL-FIL, SUPPLERET OP MED FINDTEGN / PL 17.3.83 ; CA24 (1 FEJL) /CA23 (2 FEJL) /CA22 (CA 12 FEJL+MAGL ; ; FIL CA22 SOM YDERL. ER RETTET TIL CA23 PÅEXPL2/$FD1:3 ;OG DEREFTER KOPIERET TILBAGE TIL EXPL6/$FD0 > DOMAC ; DETTE ER EN PROGRAM SAMMENLÆGNING TIL BRUG VED I-DAG-SYSTEMET. ;; STUMPERNE ER HENTET FRA CA15 OG FLG. ER FØJET TIL : ; CB 2/8-80 KL 12'43:30 ; PL 12 RETTELSER JFR CB + FIX OG FLOAT FRA CA15 PÅ DOMUS EXPL 2 ; $FD1:3 + UDSMIDNINGER AF GENTAGELSER VEDR GMEM / SMEM ; RETTET PÅ BASIS AF CA21 PÅ EXPL2 $FD1:3 //PL 14.9.80 KL 24 PRDE1 ; MACRO PROGRAMHOVED «ff» ; <STN> CALL"BUF",<EXPR>,<EXPR>,<VAR> ; <STN> CALL"GMEM",<VAR>,<VAR> ; <STN> CALL"SMEM",<VAR>,<VAR> ; <STN> CALL"KODESPEC" ; <STN> CALL"FIND",<EXPR>,<MVAR>,<EXPR>,<VAR> ; <STN> CALL"FLYTMAT",<MVAR>,<EXPR>,<EXPR>,<EXPR> ; SUBRUTINETABEL BUF00 .TXT "BUF<0><0><0><0><0>" GME00 ; GMEM-ADRESSE .TXT "GMEM<0><0><0><0>" ; NAVN FINDT .TXT "FINDTEGN" FIN00 ; FIND ADRESSE .TXT "FIND<0><0><0><0>" ; NAVN FLM00 ; FLYTMAT ADREESE .TXT "FLYTMAT<0>" ; NAVN KSP00 .TXT "KODESPEC" SME00 .TXT "SMEM<0><0><0><0>" FIX00 .TXT "FIX<0><0><0><0><0>" FLO00 .TXT "FLOAT<0><0><0>" 0 «ff» BUF00: 3 ; 3 VARIABLE REAL ; A REAL ; OG B REAL+REFERENCE ; OG C LDA 1,RESCH ; HENT RESERVATIONSSTATUS (RESCH) SUBZL 0,0 ; AC0=1 SUB# 1,0 ,SNR ; RESCH=AC0?? JMP .-3 ; JA: PRØV IGEN STA 0,RESCH ; NEJ: SÆT RESCH=1 LDA @ 1,+2,2 ; AC1=F(F(USER.U.STK)+1)=C-ADRESSE STA 1,BADRE ; GEM C-ADRESSE LDA 2,+1,2 ; AC2=B-ADRESSE LDA 0,+0,2 ; HENT B=VARBUFNR LDA 1,+1,2 BCALL FIX SUBC 2,2 ; AC2=0 INCOL 2,2 ; AC2=3 MOV 0,0,SNR ; LIGGER 0<=VARBUFNR<=3 ? SNG 1,2 JMP ERR90 ; NEJ: RETURN MED ERROR 90 MOVZL 1,1 ; AC1=1 LDA 2,BUFAD ; AC2=BUFFERADRESSE ADD 2,1 ; AC1=AC1+AC2 STA 1,ADRES ; GEM ADRESSE(VARNR) SUBZL 0,0 ; AC0=1 LDA @ 2,U.STK,3 LDA 0,+0,2 ; HENT A(1. ORD) LDA 2,CUR MOV 0,0,SZR ; A=0??? JMP PART2 ; LDA 3,ADRES ; HENT BUFADRESSE LDA 0,+0,3 ; AC0=F(ADRES) LDA 1,+1,3 ; AC1=F(ADRES+1) LDA 2,CUR A.PDOUBLE ; AC'S-->B 1 ; SEGMENT NUMBER BADRE: 0 ; B-ADRESSE JMP UD ; PART2: SUBZL 0,0 LDA 1,BADRE ; NEJ: HENT B-ADRESSE A.GDOUBLE ; HENT B-->;AC'S LDA 3,ADRES ; AC3=BUFADRESSE(VARNR) STA 0,+0,3 ; AC'S-->BUF(VARNR) STA 1,+1,3 UD: SUB 0,0 ; AC0=0 STA 0,RESCH ; RESCH=0 RET1 ; END BUF ; RESCH: 0 ; RESERVERINGSSTATUS BUFAD: BUFTB BUFTB: .BLK 8 ; VARBUF OMRÅDE ADRES: 0 «ff» GME00: 2 REAL REAL+REFERENCE LDA 2,+0,2 ; AC1=A-ADRESSE EXECUTE GSM00 RET1 LDA 1,+0,2 ; JA: AC1=INDHOLD AF ADRESSE BCALL FLOAT ; AC1 -> KOMMATAL LDA 2,U.STK,3 LDA @ 2,+1,2 ; AC2=B-ADRESSE STA 2,GME01 ; GEM B-ADRESSE LDA 2,CUR A.PDOUBLE ; GEM ADRESSEINDHOLD(A) I B 1 GME01: 0 RET1 ; END GMEM ERR00: LDA 0,PIO,3 ; AC0=PIO-ADRESSE LDA 1,ERRAD ; AC1=ERRORTXTADRESSE ERR11: MOVZL 1,1 ;-->BYTE ADRESSE LDA 2,CUR F.OTEXT ; OUTPUT FEJLMEDDELELSE RET1 RET1 ; ÆNDRET TIL RET1 BEGGE STEDER 21.3.83 ; RETURN ERRAD: ERRTX ERRTX: .TXT "<13><10><7>GAL ADR<13><10>" GSM00: LDA 0,+0,2 ; HENT A LDA 1,+1,2 BCALL FIX ; FIX A ADCZR 2,2 ; AC2=1B0-1 MOV 0,0,SNR ; 0<=AC1<=1B0-1 SNG 1,2 JMP ERR00 ; NEJ: ERROR UDSKRIV MEDD. MOV 1,2 ; AC1-->AC2 RET1 ; RETURN ERR90: ERROR 90 ERR91: ERROR 91 KSP00: 0 READS 0 STA 0,KSP01 LDA 1,KSP02 ; FLG ÆNDRET 21.3.83/PL CAA42 SUB # 0,1,SNR RET1 ERR22: LDA 0,PIO,3 LDA 1,EJOKT JMP ERR11 EJOKT: .+1 .TXT "GAL KODE<7><13><10><0>" KSP01: 0 «ff» ; SMEM ER RETTET OG PRØVEKØRT (BEGGE PARAM REAL !!) 21.3.83: SME00: 2 ; 2 VARIABLE REAL ; A (=A-ADRESSE) REAL ; B (=DATA) LDA 0,KSP01 ; SE GME00 LDA 1,KSP02 SUB 1,0,SZR JMP ERR22 ; !! ÆNDRET 21.3.83 /PL CAA42 LDA 2,1,2 LDA 0,0,2 LDA 1,1,2 ; FOREG. 3 ERSTATTER 4 I GL UDG MED REAL+REFER BCALL FIX ; FIX B MOV 0,0,SZR ; 0<=B<=65535 ? JMP ERR91 ; NEJ ERROR-RETURN STA 1,U.S00,3 ; GEM AC1(B) I U.S00.USER LDA @ 2,U.STK,3 ; HENT ADRESSE PÅ ADRESSE (1.PARAM ADR) 21.3.83 EXECUTE ; EXEC GSM00(A-ADRESSE) GSM00 RET1 LDA 1,U.S00,3 ; AC1=F(UDA+U.S00)=B STA 1,+0,2 ; AC1-->ADR.AC2 RET1 ; END STOREMEMORY KSP02: 59 «ff» FIN00: 4 ; 4 VARIABLE : REAL ; B = DET DER SØGES PLACERET REAL+ARRAY ; A = DET DER SØGES I REAL ; MAX(A) = MAX BRUGT I A REAL+REFERENCE ; INDEX = STED TIL RESULTAT LDA 0,+7,2 ; DIM(A)-->US00 STA 0,U.S00,3 LDA 0,+9,2 ; HENT MAX(A) LDA 1,+10,2 BCALL FIX ; FIX MAX(A) LDA 2,U.S00,3 ; AC2=DIM(A) MOV 0,0,SNR ; ER MAX(A)>=0 OG SUBZ# 1,2,SNC ; ER MAX(A)<=DIM(A) JMP ER31 ; NEJ - INDEXFEJL MOV 1,1,SNR ; ER MAX=0 JMP FIN03 ; JA - HOP (LAD INDEX=1) STA 1,U.S01,3 ; US01=MAX(A)=MAX SUBZL 0,0 STA 0,U.S00,3 ; US00=MIN=1 LDA 2,U.STK,3 LDA @ 1,+3,2 ; FLYT INDEX ADRESSE OVER I FIN05 STA 1,FIN05 LDA 1,+0,2 ; FLYT B-ADRESSE OVER I NÆRVÆRENDE LAGER STA 1,BADR LDA 1,+6,2 ; FLYT STARTADR PÅ MATRIX OVER I US12 STA 1,U.S12,3 JSR BEADR ; AC0 ER HER 1 JSR TESTB ; ER B<A(1) ? JMP FIN04 ; JA - HOP (LAD INDEX=1) LDA 0,U.S01,3 ; NEJ - AC0=MAX JSR BEADR JSR TESTB ; ER B>=A(MAX) JMP .+2 JMP FIN03 ; JA - HOP (LAD INDEX=MAX+1) FIN01: LDA 0,U.S00,3 ; AC0=MIN LDA 1,U.S01,3 ; AC1=MAX ADDZR 1,0 ; AC0=MIDT=(MIN+MAX) DIV 2 JSR BEADR JSR TESTB ; B>=A(MIDT) JMP FIN02 ; NEJ HOP INC 0,0 ; AC0=MIDT+1 JSR BEADR JSR TESTB ; B<A(MIDT+1) JMP FIN04 ; JA - HOP SLUT (INDEX=MIDT+1) NEG 0,0 ; AC0=AC0-1=MIDT COM 0,0 STA 0,U.S00,3 ; MIN=MIDT JMP FIN01 ; FORFRA FIN02: STA 0,U.S01,3 ; MAX=MIDT JMP FIN01 ; FORFRA «ff» FIN03: INC 0,0 ; INDEX=INDEX+1 FIN04: MOV 0,1 ; AC0,AC1=0,INDEX IE FIXTAL INDEX SUB 0,0 BCALL FLOAT ; AC0,AC1=FLOAT INDEX LDA 2,CUR A.PDOUBLE ; GEM INDEX 1 FIN05: 0 RET1 ; SLUT ER31: ERROR 31 BADR: 0 «ff» ; DENNE RUTINE SAMMENLIGNER DET TAL (X) ; DER LIGGER PÅ ADRESSEN ANGIVET I AC1 ; MED B, DER ER ANGIVET VED BADR TESTB: LDA 2,USER STA 0,U.S11,2 ; GEM AC0 VÆK STA 3,U.S10,2 ; GEM RETADR I US10 SUBZL 0,0 ; AC0=1 LDA 2,CUR A.GDOUBLE ; HENT X LDA 2,BADR ; AC2=B'S ADRESSE BCALL FSUB ; AC0,AC1=B-X MOVZL 0,0,SBN ; HVIS X<=B RETURN TIL LINK+1 ISZ U.S10,3 ; HVIS X>B RETURN TIL LINK+0 LDA 0,U.S11,3 ; HENT AC0 TILBAGE JMP @ U.S10,3 ; RETURN ; ! CALL ! RET ;------------------- JMP +1,1 ; AC0 ! ? ! = ; AC1 !ADR.X ! % ; AC2 ! ? ! % JMP +1,1 ; AC3 ! ? ! UDA ; DENNE RUTINE BEREGNER DEN EFFEKTIVE ; ADR PÅ ET INDEX I EN MATRIX, HVIS ; FØRSTE ELEMENTS ADR ER ANGIVET VED ; US12. ; BEREGNINGEN ER MED LOWBOUND=1 BEADR: MOV 3,1 ; AC1=AC3, AC0=INDEX VED START LDA 3,USER STA 1,U.S10,3 ; GEM RET-ADR VÆK STA 2,U.S11,3 ; GEM AC2 LDA 2,U.S12,3 ; AC2=ADR(MAT(1)) NEG 0,1 COMZL 1,1 ; INDEX=(INDEX-1)*2 ADD 2,1 ; AC1=ADR(MAT(1))+INDEX LDA 2,U.S11,3 ; HENT AC2 IGEN JMP @ U.S10,3 ; RETURN ; ! CALL ! RET ;------------------- ; AC0 !INDEX !INDEX ; AC1 ! ? ! ADR ; AC2 ! ? ! = ; AC3 ! ? ! UDA «ff» FLM00: 4 REAL+ARRAY ; A = DET DER SKAL FLYTTES I REAL ; INDEX = HVORFRA DER SKAL FLYTTES REAL ; ANTAL = HVORLANGT .. REAL ; MAX = SIDSTE ELEMENT BRUGT I A LDA 0,+4,2 STA 0,U.S12,3 ; GEM ADR(A(1)) I US12 LDA 0,+7,2 LDA 1,+8,2 ; HENT INDEX BCALL FIX ; FIX INDEX MOV 0,0,SNR ; ER 0<=INDEX<=32767 OG MOV 1,1,SNR ; ER INDEX<>0 ? JMP ER31 ; NEJ STA 1,U.S01,3 ; GEM INDEX I US01 LDA 2,U.STK,3 LDA 0,+11,2 LDA 1,+12,2 ; HENT MAX BCALL FIX ; FIX MAX LDA 2,U.STK,3 LDA 2,+5,2 ; HENT DIM(A) SUBZ# 1,2,SZC ; ER MAX<=DIM(A) OG MOV 0,0,SZR ; ER MAX>=0 ? JMP ER31 ; NEJ LDA 0,U.S01,3 ; AC0=INDEX STA 1,U.S02,3 ; GEM MAX I US02 INC 1,1 ; AC1=MAX+1 SUBZ 0,1,SNC ; AC1=MAX+1-INDEX, ER AC1>=0 ? JMP ER31 ; NEJ MOV 1,1,SNR ; ER AC1=0 ? RET1 ; JA SLUT STA 1,U.S00,3 ; GEM ANT=MAX+1-INDEX I US00 LDA 2,U.STK,3 LDA 0,+9,2 ; HENT ANTAL LDA 1,+10,2 BCALL FIX ; FIX ANTAL MOVZL 0,0,SZC ; ER ANTAL POSITIV ? JMP FLM01 ; NEJ LDA 2,U.STK,3 LDA 2,+5,2 ; AC2=DIM(A) LDA 0,U.S02,3 ; AC0=MAX ADD 1,0 ; AC0=ANTAL+MAX SUBZ 0,2,SNC ; AC2=DIM(A)-ANTAL-MAX ER AC2>=0 ? JMP ER31 ; NEJ ADCZL 2,2 ; AC2=-2 STA 2,U.S03,3 ; GEM -2 I US03 MOVZL 1,1 ; ANTAL=ANTAL*2 STA 1,U.S07,3 ; GEM ANTAL*2 I US07 LDA 0,U.S02,3 ; AC0=MAX JSR BEADR ; AC1=ADR(A(MAX)) STA 1,U.S04,3 ; GEM AC1 I US04 JMP FLM03 ; KLAR TIL LOOP «ff» FLM01: LDA 0,U.S01,3 ; HVIS ANTAL NEGATIV: AC0=MAX ADDZ 1,0,SZC ; ER ANTAL+MAX>=0 OG MOV 0,0,SNR ; ER ANTAL+MAX<>0 ? JMP ER31 ; NEJ SUB 0,0 INCZL 0,0 ; AC0=2 STA 0,U.S03,3 ; GEM 2 I US03 MOVZL 1,1 ; AC1=ANTAL*-2 STA 1,U.S07,3 ; GEM ANTAL*-2 I US07 LDA 0,U.S01,3 ; AC0=INDEX JSR BEADR ; AC1=ADR(A(INDEX)) STA 1,U.S04,3 ; GEM AC1 I US04 JMP FLM03 ; KLAR TIL LOOP FLM02: LDA 0,U.S04,3 ; US04=US04+US03 DVS ADRESSEN BLIVER LDA 1,U.S03,3 ; JUSTERET PASSENDE +/-2 ALT EFTER OM ADD 0,1 ; LØKKEN KØRER FORLÆNS EL. BAGLÆNS STA 1,U.S04,3 FLM03: LDA 2,CUR SUBZL 0,0 A.GDOUBLE ; HENT A(ADR-US04)=X LDA 2,U.S04,3 ; BEREGN DEPOSIT ADRESSE : LDA 3,U.S07,3 ; LAD D.ADR=FLM04=US04+US07 ADD 2,3 STA 3,FLM04 LDA 2,CUR A.PDOUBLE ; GEM X I A(ADR.US04+US07) 1 FLM04: 0 DSZ U.S00,3 ; TÆL LØKKETÆLLER(=ANT) EN NED. ANT=0? JMP FLM02 ; NEJ FLRTSÆT RET1 ; JA SLUT ; HELE LOOPRUTINEN KAN SES SOM FLG: ; REPEAT ; LET A(ADR.US04+US07)=A(ADR.US04) ; LET US04=US04+US03 ; US00=US00-1 ; UNTIL US00=0 «ff» FIX00: 3 REAL+REFERENCE REAL+REFERENCE REAL+REFERENCE SUBZL 0,0 ; AC0=1 LDA @ 1,+0,2 ; AC1=A-ADRESSE LDA 2,CUR ; AC2=CUR A.GDOUBLE ; HENT A STA 0,U.S00,3 ; GEM ORD 1 AF A SUBC 0,0 ; AC0=0 BCALL FLOAT ; FLOAT ORD2 AF A LDA 2,CUR ; AC2=CUR LDA 3,U.STK,3 ; AC3=F(F(USER)+U.STK) LDA @ 3,+2,3 ; AC3=C-ADRESSE STA 3,FIX01 ; GEM C-ADRESSE A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I B 1 FIX01: 0 LDA 1,U.S00,3 ; HENT ORD1 AF A SUBC 0,0 ; AC0=0 BCALL FLOAT ; FLOAT ORD1 AF A LDA 2,CUR ; AC2=CUR LDA 3,U.STK,3 LDA @ 3,+1,3 ; AC3=B-ADRESSE STA 3,FIX02 ; GEM B-ADRESSE A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I C 1 FIX02: 0 RET1 ; END FIX ERRIO: BCALL IOERR «ff» FLO00: 3 REAL+REFERENCE REAL+REFERENCE REAL+REFERENCE LDA @ 1,+0,2 ; AC1=A-ADRESSE EXECUTE ; EXEC FLO02 FLO02 RET0 ; HVIS ERROR STA 1,U.S00,3 ; GEM DEL 1 AF C LDA 2,U.STK,3 LDA @ 1,+1,2 ; AC1=B-ADRESSE EXECUTE FLO02 RET0 LDA 0,U.S00,3 ; HENT DEL 1 AF C LDA 2,U.STK,3 LDA @ 2,+2,2 ; AC2=C-ADRESSE STA 2,FLO01 ; GEM C-ADRESSE LDA 2,CUR A.PDOUBLE ; AC0,AC1-->C 1 FLO01: 0 RET1 FLO02: SUBZL 0,0 ; AC0=1 LDA 2,CUR A.GDOUBLE ; HENT A/B BCALL FIX ; LAV OM TIL HELTAL MOV 0,0,SNR ; 0=<A/B=<32K ??? RET1 ; JA: RETURN ERROR ; NEJ: RETURN MED ERROR 90 90. «ff» ; FILNAVN CA22 PÅ DOMUS EXPL6 $FD0 ; MÅSKE FEJL: ERR90 ER DOBBELTDEF, SÅ FILEN SKAL RETTES FØR OVERS ; ERR90 SLETTET, FILEN HEDDER NU CA23 ; OG LIGGER PÅ DOMUS EXPL 2 $FD1:3 SAMT HEREFTER PÅ EXPL6 $FD0 ; ; FILPROD: CA21 RETTET FOR 12 EGL FEJL + NOGET PYNT ; + CA15 FIX OG FLOAT (ERR90-PROBLEM) ; NB BEGGE FILER FRA DOMUS EXPL2 I-DAGSYSTEM 14.9.80 ; LAVET AF PL EFTER CB-DIREKT 14.9.80 KL CA 25 ; HER TILFØJES NU FINDTEGN 17.3.83 / PL «ff» ; TILFØJELSE AF FINDTEGN TIL CA23 - NY FIL CAA41 ; CALL"FINDTEGN",S$,TXT$,START,FUNDET FINDT: 4 STRING STRING REAL REAL+REFER ; PDTA S$ PDA ; TXT$ PDA ; STARTINDEX PDA (REAL) ; FUNDETINDEX PDA (REAL+REFERENCE) ; S$ PDA ADR I DATASEGM ; NO BYTES ; SEGM NO ; TXT$ PDA ADR I DATASEGM ; NO BYTES ; SEGM NO (=1) ; START PDA 1.WORD IN FLOATING REPR ; 2.WORD ; FUNDET PDA ADR I DATASEGM ; 21.9.81 PL ADRESSERING AF DATA ER JUSTERET TIL ; KORREKT FACON DVS FX S$-ADR FINDES VED LDA @ 1,0,2 ; ISTF LDA 1,4,2 (SOM FORUDSÆTTER AT PDA FØLGER EXACT EFTER PDT) ; US00 INDEX ; US01 S$(1) TEXT DER SKAL FINDES ; US02 BYTEADR FOR TXT$(INDEX) I DATASEGMENTET LDA @ 1,0,2 ;HENT S$ WORD ADR. LDA 2,CUR LDA 0,80 A.GBYTE STA 0,U.S01,3 ;FØRSTE CHR. AF S$ LDA 2,U.STK,3 LDA 2,2,2 LDA 0,+0,2 ;HENT START INDEKS LDA 1,+1,2 BCALL FIX MOV 0,0,SZR JMP ERUD1 ;NEGATIV MOV 1,0 STA 1,U.S00,3 LDA 2,U.STK,3 LDA @ 1,1,2 ; PL 23.9.81 ADD 0,1 ;TXT$(INDEKS) BYTE ADR. I AC1 ; PL 20.9.81 RETTELSER: STA 1,U.S02,3 ; US02=BYTEADR FOR TXT$(INDEX) I DATASEGM ; FLG RUTINE FORUDSÆTTER ; AC0 AC1 AC2 AC3 ; ü TXT$(I) PDTA USER ; BY-ADR LOP1: LDA 2,1,2 ; ER INDEX<=LEN(TXT$) ? ELLERS LDA 0,1,2 ; AC0 ØGES MED 1 21.9.81 -23.9 LDA 2,U.S00,3 ; EX: INC 0,0 ; C=0 AC2=0110 COMPL-> 1001 ADCZ # 2,0,SNC ; AC0=LEN(TXT$)+1 = 0111 => C=1 JMP EJF LDA 2,CUR ;FLYTTET AF PL ; PL RETT. SLUT LDA 0,80 A.GBYTE ;HENT BYTE TXT$(INDEKS) LDA 1,U.S01,3 ; HENT S$ ISZ U.S00,3 ; FORØG INDEX (! INDEN !! EVT UDGANG AF RUTINEN!) SUB 0,1,SNR ;ENS? JMP FUNDT ; !!!!!!!!!!!!!!!!!!!! H E R !!!!!!! ISZ U.S02,3 ;FORØG BYTE ADR. LDA 1,U.S02,3 ; PL TILFØJELSE SØNDAG 17.9.81 LDA 2,U.STK,3 ; PDTA I AC2 MANGLEDE / PL 23.9.81 JMP LOP1 ERUD1: ERROR ;INDEKSFEJL 31 FUNDT: LDA 1,U.S00,3 ;FUNDET SUB 0,0 ; STED=INDEKS NNN: BCALL FLOAT LDA 3,U.STK,3 LDA @ 3,3,3 STA 3,WADRS LDA 2,CUR A.PDOUBLE 1 WADRS: 0 RET1 EJF: ; ADC 1,1 FJERNET PL SØNDAG ADC 0,0 ADC 1,1 ;IKKE FUNDET STED=-1 JMP NNN «ff» PRDE2 ; DEN SAMLEDE CALL-FIL CA23 MED FINDTEGN TILFØJET OG RETTET / PL 17.3.83 «ff» «nul»