|
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: 2210 (0x8a2)
Types: COMAL_SAVE
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─ ⟦7d2c9ecb5⟧ »/VECF«
└─⟦this⟧
SAVE filename: "VECF" 0010 REM ********** VEKTORFUNKTIONER OG BANEKURVER«nul»V 0020 REM ********** PROGRAM TIL UNDERVISNING I 2 GF«nul» 0030 REM ********** ÅICHAEL WEYAND«nul»E 0040 PRINT "<27>AF" 0050 PRINT "<27><12>" 0060 DELAY = 1 0070 PRINT TAB ( 20 ) ; "*** GRAFTEGNING FOR VEKTORFUNKTIONER ***" 0080 PRINT 0090 TAB = 10 0100 PRINT "" , "GRAFTEGNEREN KAN TEGNE EN VEKTOFUNKTION" 0110 PRINT "" , " BAGEFTER ER DET MULIGT AT LAVE KOORDINAT-" 0120 PRINT "" , "SOEGNING VED HJAELP AF KORSET, SOM FREMKOMMER." 0130 PRINT "" , "KORSET INDSTILLES V.H.A. DE TO KNAPPER I" 0140 PRINT "" , "HOEJRE SIDE AF TASTATURET. NAAR KORSET ER INDSTIL-" 0150 PRINT "" , "LET OVER DEN SOEGTE KOORDINAT TRYKKES DER PAA ET BOG-" 0160 PRINT "" , "STAV. NAAR SOEGNINGEN ER FORBI TRYKKES PAA -RETURN-" 0170 PRINT 0180 REM ********** VEKTORFUNKTIONEN LAESES IND«nul» 0190 PRINT 0200 DIM GEM1$ ( 40 ) , GEM2$ ( 40 ) 0205 DELETE "GEM1" 0207 DELETE "GEM2" 0213 CREATE "GEM1" , 50 0220 CREATE "GEM2" , 50 0230 OPEN FILE ( 0 , 2 ) "GEM1" 0240 OPEN FILE ( 1 , 2 ) "GEM2" 0250 PRINT "" , "INDTAST VEKTORFUNKTIONEN :" 0260 PRINT 0270 PRINT "" , " " ; 0280 INPUT "X(T) = " , GEM1$ 0290 PRINT 0300 PRINT "" , " " ; 0310 INPUT "Y(T) = " , GEM2$ 0320 WRITE FILE ( 0 ) "160 DEF FNX(T) = " , GEM1$ , "<13><10>" 0330 WRITE FILE ( 1 ) "170 DEF FNY(T) = " , GEM2$ , "<13><10>" 0340 CLOSE 0390 CHAIN "GRAFV" 0400 END «nul»
FNA definition = 0xffff
FNB definition = 0xffff
FNC definition = 0xffff
FND definition = 0xffff
FNE definition = 0xffff
FNF definition = 0xffff
FNG definition = 0xffff
FNH definition = 0xffff
FNI definition = 0xffff
FNJ definition = 0xffff
FNK definition = 0xffff
FNL definition = 0xffff
FNM definition = 0xffff
FNN definition = 0xffff
FNO definition = 0xffff
FNP definition = 0xffff
FNQ definition = 0xffff
FNR definition = 0xffff
FNS definition = 0xffff
FNT definition = 0xffff
FNU definition = 0xffff
FNV definition = 0xffff
FNW definition = 0xffff
FNX definition = 0xffff
FNY definition = 0xffff
FNZ definition = 0xffff
FN[ definition = 0xffff
FN\ definition = 0xffff
FN] definition = 0xffff
GOSUB-RETURN stack pointer = 0x0000
stack[0] = 0x041e
stack[1] = 0x032f
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
FOR-NEXT stack pointer = 0x0000
Var# = 0x0413
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x00b6
Loop Top = 0x029a
To Val = 50 (0x42320000)
Step Val = 1 (0x41100000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
REPEAT-UNTIL stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
WHILE-ENDWHILE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
IF-ELSE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
Variables:
0x80 0xffff 0x00
0x81 0xffff 0x02 GEM$
0x82 0xffff 0x00 X1
0x83 0xffff 0x00 X2
0x84 0xffff 0x00 Y1
0x85 0xffff 0x00 Y2
0x86 0xffff 0x00 XSTEP
0x87 0xffff 0x00 YSTEP
0x88 0xffff 0x00 XAKS
0x89 0xffff 0x00 YAKS
0x8a 0xffff 0x00 A1
0x8b 0xffff 0x00 A2
0x8c 0xffff 0x00 A3
0x8d 0xffff 0x00 A4
0x8e 0xffff 0x00 C1
0x8f 0xffff 0x00 C2
0x90 0xffff 0x00 C3
0x91 0xffff 0x00 C4
0x92 0xffff 0x00 C5
0x93 0xffff 0x00 C6
0x94 0xffff 0x00 S
0x95 0xffff 0x00 Y
0x96 0xffff 0x00 START
0x97 0xffff 0x00 SLUT
0x98 0xffff 0x00 KOORD
0x99 0xffff 0x00 X
0x9a 0xffff 0x00 ERR2
0x9b 0xffff 0x00 VEC
0x9c 0xffff 0x00 T
0x9d 0xffff 0x00 CROSS
0x9e 0xffff 0x02 G$
0x9f 0xffff 0x00 XKOR
0xa0 0xffff 0x00 YKOR
0xa1 0xffff 0x00 LIST200
0xa2 0xffff 0x00 INFO
0xa3 0xffff 0x00 PLOIN
0xa4 0xffff 0x00 T0
0xa5 0xffff 0x00 TS
0xa6 0xffff 0x00 TSTEP
0xa7 0xffff 0x00 I
0xa8 0xffff 0x00 ENH1
0xa9 0xffff 0x00 YMAX
0xaa 0xffff 0x00 YMIN
0xab 0xffff 0x00 LW
0xac 0xffff 0x00 ENH2
0xad 0xffff 0x00 XMAX
0xae 0xffff 0x00 XMIN
0xaf 0xffff 0x00 EN1
0xb0 0xffff 0x00 ENHED
0xb1 0xffff 0x00 XMAX1
0xb2 0xffff 0x00 ENDPRROC
0xb3 0xffff 0x00 C
0xb4 0xffff 0x00 XMIN1
0xb5 0xffff 0x00 LISTT
0xb6 0xffff 0x00 J
0xb7 0xffff 0x00 YMAX1
0xb8 0xffff 0x00 YMIN1
0xb9 0xffff 0x00 LIST500
0xba 0xffff 0x00 LIST550
0xbb 0xffff 0x00 CO
0xbc 0xffff 0x00 TID
0xbd 0xffff 0x00 YPOS
0xbe 0xffff 0x00 XPOS
0xbf 0xffff 0x00 TRIN
0xc0 0xffff 0x00 TTID
0xc1 0xffff 0x00 CENNECT
0xc2 0xffff 0x00 ENH11
0xc3 0xffff 0x00 CRREATE
0xc4 0x0000 0x02 GEM1$
0xc5 0x0017 0x02 GEM2$
0xc6 0xffff 0x00 DELET
0xc7 0xffff 0x00 LIIST
.magic = 0x4e32 .u_pas = 0x0244 // Length of UPAS in words .u_das = 0x01fe // Length of UDAS in words .u_dvs = 0x01d0 // Start på savede variabel indhold (word adr) .u_nds = 0x01d1 // Address på næste prog.sætning (word adr) .u_cps = 0x0000 // Address på curr prog.sætning (word adr) .u_tll = 0x0048 // Page størrelse .u_tts = 0x000a // TAP størrelse .u_ran = 0x0001 // Random tal .u_cdl = 0x0006 // Current DATA sætning ptr .u_cdb = 0x0000 // Current DATA byte ptr .u_esa = 0x0042 // ON ESE (word adr) .u_era = 0x0000 // ON ERR (word adr) .u_cas = 0xffff // CASE dybde .u_las = 0xffff // last (-1)