|
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: 1600 (0x640)
Types: TextFile
Notes: @.LAGER!, BASIC::@.LAGER!
Names: »@.LAGER!«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─⟦this⟧
«ff» 0010 REM «so» DUMP AF INDRE LAGER PL 9.9.79 0020 INPUT "RADIX ",R," ANTAL TAL PÅ LINIE ",LIN," 80/132? ",BR 0030 REM 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 IF R=10 THEN GOTO 1000 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$; 0200 PRINT USING "####### : ",ADR; 0210 ENDIF 0220 CALL "GMEM",ADR,LAGER 0230 IF LAGER=0 THEN PRINT E$; 0240 IF LAGER=0 THEN GOTO 0280 0250 LET X=LAGER 0260 EXEC RAD 0270 PRINT D$; 0280 NEXT ADR 0290 PRINT "<10><7>" 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 0990 STOP 1000 FOR ADR=I1 TO I2 1010 IF (ADR-I1) MOD LIN=0 THEN 1020 PRINT 1030 PRINT USING "####### : ",ADR; 1040 ENDIF 1050 CALL "GMEM",ADR,LAGER 1060 PRINT USING "######",LAGER; 1070 NEXT ADR 1080 PRINT "<10><7>" 1090 GOTO 0120 «nul»