|
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 - metrics - download
Length: 2048 (0x800)
Types: TextFile
Names: »GETTG«
└─⟦c99ffa672⟧ Bits:30001786 SG0006 Floppy
└─⟦this⟧ »/GETTG«
PRDE1 GET00 .TXT "GET<0><0><0><0><0>" ; CALLRUTINE INDTASTET FRA BASIC GET00: STRING + REFERENCE ; 1 TEKST VARIABEL LDA 3,USER ; AC3=ADRESSE PÅ TEKST STRENG LDA @ 0,U.STK,3 ; ADRESSE PÅ 1. WORD STA 0,TXADR ; TXADR=AC0=ADRESSEN PÅ TEKSTEN SUBZL 2,0 ; AC2=1 ADDZ 2,2 ; AC2=AC2+AC2=2 ADD 2,3 ; AC3=AC2+AC3=WORD 3.'S ADRESSE LDA @ 0,U.STK,3 ; AC0=ADRESSEN PÅ 3. WORD STA 0,TLADR ; AC0=ADRESSEN PÅ LÆNGDEN AF TEKST STRENG SUBZ 2,2 ; AC2=0 LDA 3,TLADR ; AC3=TLADR STA 2,TLADR ; TLADR=AC2=0 STA 2,0,3 ; ADRESSE=0+AC3 INDHOLD AF ADRESSE=AC2=0 LDA 3,USER ; AC3=ADRESSE PÅ TEKST LDA 0,PIO,3 ; TERM. ADR PIO=PRIMARY INPUT?OUTPUT LDA 2,CUR ; AC2=CUR F.ICHAR ; FUNKTION INPUT CHARATHER JMP +14,1 ; GOTO 13 LÆNGERE END HER/ADRESSE ADD # 1,1 SNR ; SKIP IF NOT ZERO RESULT #=OPERATION IKK RET0 ; FÆRDIG END GÅT TILBAGE TIL COMAL SUBZ 0,0 ; AC0=AC0-AC0=0 STA 0,5,1 ; AC0=4+ADR=0 !?! LDA 0,1 ; AC0=AC1 LDA 1,TXADR ; AC1=TXADR LDA 1,TXADR ; AC1=TXADR A.PBYTE ; 1. BYTE PÅ ADRESSE 0 ; DATASEGMENT SUBZL 0,0 ; AC0=1 LDA 1,TLADR ; AC1=TLADR=TEKST LÆNGDE ADRESSE STA 0,1 ; AC0=1 RET0 ; FÆRDIG GÅR TILBAGE TIL COMAL/BASIC STA 2,+2,1 ; AC2=2 LÆNGERE NEDE END HER/ADR ERROR ; FEJL (GÅET HERTIL OVENFRA) 0 ; HVILKET FJELNUMMER RET0 ; GÅR TILBAGE TIL COMAL/BASIC TLADR: 0 TXADR: 0 PRDE2 «ff» «nul»