|
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: 1512 (0x5e8)
Types: TextFile
Notes: @.LAGTTY, ASS2::@.LAGTTY
Names: »@.LAGTTY«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─⟦this⟧
«ff» 0010 REM PL 6.12.79 DUMP AF LAGER TIL $TTY (MODIF AF 9.9.79) «so»@.LAG $TTY 0020 INPUT "RADIX ",R," ANTAL TAL PÅ LINIE ",LIN," 80/132? ",BR 0030 OPEN FILE(1,11)"$TTY" 0040 GOTO 0060 0050 IF N<30*R^3.3/R^4 THEN GOTO 0020 0060 LET M=11-INT(2*LOG(R)/LOG(2)); BR=BR-M-12 0070 IF R=2 THEN LET M=8; BR=BR-6 0074 LET N=INT(BR/LIN) 0080 IF N<M+1 THEN GOTO 0020 0090 DIM D$(N),E$(N) 0100 LET E$=" "; E$(N-M+1,N)="................." 0110 PAGE=0 0120 INPUT "FRA ",I1," TIL ",I2 0130 PRINT "TALLGD ";N;" ANTAL/LINIE ";LIN;" RADIX ";R;" ADRESSER ";I1;" - ";I2 0140 REM 0150 FOR ADR=I1 TO I2 0160 IF (ADR-I1) MOD LIN=0 THEN 0170 LET X=ADR 0180 EXEC RAD 0190 PRINT "<13><10>";D$; 0195 PRINT FILE(1)"<13><10>";D$; 0200 PRINT USING "####### : ",ADR; 0215 PRINT FILE(1)USING "#######: ",ADR; 0216 ENDIF 0220 CALL "GMEM",ADR,LAGER 0230 IF LAGER=0 THEN PRINT E$; 0235 IF LAGER=0 THEN PRINT FILE(1)E$; 0240 IF LAGER=0 THEN GOTO 0280 0250 LET X=LAGER 0260 EXEC RAD 0270 PRINT FILE(1)D$; 0280 NEXT ADR 0290 PRINT "<10><7>" 0295 ON ESC THEN CLOSE 0300 GOTO 0120 0310 PROC RAD 0320 LET D$=E$; I=0 0330 REPEAT 0340 LET H=X DIV R; C=X MOD R; I=I+1; X=H 0350 IF C>9 THEN LET C=55+C 0360 IF C>0 AND C<10 THEN LET C=48+C 0370 IF C=0 THEN LET C=46 0380 LET D$(N+1-I)=CHR(C) 0390 UNTIL H=0 OR N<I+1 0400 ENDPROC