DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦5fb7edeee⟧ COMAL_SAVE

    Length: 8180 (0x1ff4)
    Types: COMAL_SAVE

Derivation

└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
    └─ ⟦fae26a65c⟧ »/DAUDT « 
        └─⟦this⟧

UPAS Segment

SAVE filename: "DAUDT"

 0010 REM  TORBEN TAMBO & PER LIEBERKIND L DEN 14.12.81 HENTET FRA PLF1 MED NAVNET "P2UDT"«nul» 
 0020 INPUT "1=DUMP KOPIR<10>2=LAV T FRA KOPIR<10>3=UDSKRIFT AF T<10>4=ANALYSE AF T<10>" , NY
 0030 RESET ESC
 0040 ON NY THEN GOTO 2290 , 1670 , 0080 , 0080
 0050 LET FLG = 0
 0060 PRINT "<13><10>##>" , G + 1 ;
 0070 IF KK THEN SAVE "P2UDT"
 0080 DIM T ( 4 ) , L$ ( 170 ) , D$ ( 10 ) , NUL$ ( 2 )
 0090 DIM MM ( 32 , 12 ) , M ( 32 ) , R ( 12 ) , KTRL ( 12 ) , WNR ( 12 ) , BLTYPE ( 12 )
 0100 FOR I = 1 TO 4
 0110   READ T ( I )
 0120 NEXT 
 0130 DATA 120 76 83 47
 0140 LET RELBIN = 1 ; JJJMAX = 6 ; WOMBYT = 0 ; MO = 0 ; PAGIN = 1024 ; ANTALTAL = 6 ; A = 0 ; B = 0 ; C = 0 ; FLG = 0
 0150 LET JJJMAX = 12
 0160 CLOSE
 0170 IF NY = 3 THEN OPEN FILE ( 7 , 11 ) "$LPT"
 0180 INPUT "PARAMETERJUSTERINGER: SÆTN 340-360<13><10>STARTREC (FX 1): " , REC , "  SLUTREC: " , RECMAX
 0190 LET REC = REC - 1
 0200 OPEN FILE ( 4 , 4 ) "T"
 0210 DEF FNO ( VAR82 ) = 32 + 16 * ( X MOD 10 ^ [LVAR]  DIV 10 ^ ( [LVAR]  - 1 ) <> 0 ) + X MOD 10 ^ [LVAR]  DIV 10 ^ ( [LVAR]  - 1 )
 0220 DEF FNT ( VAR98 ) = 106 + 9 * ( [LVAR]  > 7 ) - 14 * ( [LVAR]  > 15 ) + 7 * ( [LVAR]  > 31 ) + 11 * ( [LVAR]  > 63 )
 0230 DEF FNS ( VAR98 ) = ( FNT ( [LVAR]  ) - [LVAR]  MOD 8 DIV 4 ) * ( [LVAR]  < 96 ) + ( 112 + [LVAR]  MOD 2 ) * ( 95 < [LVAR]  AND [LVAR]  < 128 ) + ( 97 + Z ) * ( [LVAR]  > 127 )
 0240 IF NY = 4 THEN LET JJJMAX = 1
 0250 WHILE REC <= RECMAX DO
 0260   RESET ESC
 0270   PAGE = 132
 0280   TAB = 10
 0290   PRINT "<12>"
 0300   IF NY = 3 THEN PRINT FILE ( 7 ) "<12>" ;
 0310   FOR I = 1 TO 32
 0320     LET M ( I ) = 0
 0330     IF I < 13 THEN
 0340       LET KTRL ( I ) = 999
 0350     ENDIF 
 0360   NEXT 
 0370   FOR JJJ = 1 TO JJJMAX
 0380     LET KT = 0 ; REC = REC + 1
 0390     READ FILE ( 4 , REC ) M ( 1 )
 0400     FOR I = 2 TO 32
 0410       READ FILE ( 4 ) M ( I )
 0420     NEXT 
 0430     RESET ERR
 0440     IF NY = 3 THEN
 0470       PAGE = 132
 0480       IF MO THEN PRINT FILE ( 7 ) REC ,
 0490       IF NOT MO THEN PRINT FILE ( 7 ) REC + 0.1 ,
 0500     ENDIF 
 0505     PRINT
 0510     FOR JJ = 1 TO 32
 0520       LET MM ( JJ , JJJ ) = M ( JJ )
 0530     NEXT 
 0540   NEXT 
 0550   IF NY = 3 THEN PRINT FILE ( 7 )
 0560   PAGE = 0
 0570   FOR JJ = 1 TO 32
 0580     IF NY = 3 THEN IF JJ MOD 8 = 1 THEN PRINT FILE ( 7 )
 0590     REM   ON ESC REC=20000«nul»
 0600     ON ESC THEN EXEC INDGREB
 0610     IF NY <> 3 THEN RESET ESC
 0620     FOR HALV = 1 TO 2
 0630       LET L$ = ""
 0640       FOR JJJ = 1 TO JJJMAX
 0650         LET KTRL ( JJJ ) = KTRL ( JJJ ) + 1 ; WNR ( JJJ ) = WNR ( JJJ ) + 1
 0660         IF HALV = 1 THEN
 0670           IF WOMBYT THEN
 0680             CALL "FIX" , MM ( JJ , JJJ ) , R ( JJJ ) , X
 0690           ELSE 
 0700             CALL "FIX" , MM ( JJ , JJJ ) , X , R ( JJJ )
 0710           ENDIF 
 0720         ELSE 
 0730           LET X = R ( JJJ )
 0740         ENDIF 
 0750         IF NOT MO THEN LET Y = X DIV 256 ; X = X MOD 256 ; X = X * 256 + Y
 0760         LET D$ = "" ; NUL$ = "" ; NO = 0 ; Z = ( X MOD 8 <> 0 ) * ( X DIV 32768 )
 0770         LET D$ = " "
 0780         REM     ... BLOKDESCRIPTOR DEFINERES:«nul»
 0790         IF RELBIN AND KTRL ( JJJ ) < 7 - ( BLTYPE ( JJJ ) MOD 2 = 1 OR BLTYPE ( JJJ ) = 4 ) THEN
 0800           REM  «so»................??????????????!!!!!!!!!!!!«nul» 
 0810           FOR B = 5 TO 1 STEP - 1
 0820             LET D$ = D$ , CHR ( FNO ( B ) + 16 * ( D$ ( LEN ( D$ ) ) <> " " AND FNO ( B ) = 32 ) )
 0830           NEXT 
 0840           IF KTRL ( JJJ ) < 5 THEN
 0850             REM      IF RELBIN AND BLTYPE>2 AND  KTRL-6 MOD 3<2   SKAL DA IKKE VÆRE HER?!«nul»
 0860             LET X1 = X * 4
 0870             FOR KK = 15 TO 0 STEP - 3
 0880               LET D$ ( ( 18 - KK ) DIV 3 ) = CHR ( 48 + X1 MOD ( 2 ^ ( KK + 3 ) ) DIV ( 2 ^ KK ) )
 0890             NEXT 
 0900             LET D$ ( 6 ) = CHR ( 46 + ( D$ ( 6 ) <> "0" ) * 19 )
 0910           ENDIF 
 0920           LET REC1 = X DIV 256 ; D$ = D$ , CHR ( FNS ( REC1 ) ) , CHR ( REC1 MOD ( 4 + 4 * ( REC1 > 127 ) ) + 48 ) , "       "
 0930         ELSE 
 0940           IF RELBIN AND BLTYPE ( JJJ ) > 2 AND ( KTRL ( JJJ ) - 6 ) MOD 3 < 2 AND KTRL ( JJJ ) = WNR ( JJJ ) THEN
 0950             LET D$ = "*           " ; KK = ( KTRL ( JJJ ) - 6 ) MOD 3 ; X11 = X DIV ( 1 + 31 * KK ) ; KK = 3
 0960             REM  .................................+BLTYPE(JJJ)=8 !!!«nul»
 0970             REM  «so» ? KK=2 RIGTIG? EX UCA01 ?«nul».
 0980             FOR JJJJ = 1 TO 3
 0990               LET DDD = X11 MOD ( 40 ^ ( 4 - JJJJ ) ) DIV ( 40 ^ ( 3 - JJJJ ) )
 1000               LET D$ ( KK + JJJJ ) = CHR ( 32 + 15 * ( DDD > 0 ) + 7 * ( DDD > 10 ) + DDD )
 1010             NEXT 
 1020             IF KTRL ( JJJ ) - 6 + ( BLTYPE ( JJJ ) = 8 ) MOD 3 = 1 THEN LET D$ ( KK + 5 ) = CHR ( 48 + X MOD 32 + 7 * ( X MOD 32 > 9 ) )
 1030           ELSE 
 1040             REM  «so» DISASSEMBLER (KAN UDSKIFTES):«nul»
 1050             IF X < 32768 THEN
 1060               IF X > 4095 THEN
 1070                 LET D$ = D$ , CHR ( T ( X MOD 32768 DIV 8192 + 1 ) ) , CHR ( 48 + X MOD 8192 DIV 2048 )
 1080               ELSE 
 1090                 LET D$ = D$ , CHR ( 32 + 30 * ( X DIV 256 <> 0 ) - 20 * ( X MOD 4096 DIV 2048 ) )
 1100               ENDIF 
 1110               LET D$ = D$ , CHR ( 32 + 16 * ( X DIV 256 <> 0 ) + X MOD 2048 DIV 256 ) ; Y = X MOD 256
 1120               IF X MOD 1024 DIV 256 THEN
 1130                 LET D$ = D$ , CHR ( 43 + ( Y DIV 128 ) * 2 ) ; Y = Y + ( Y DIV 128 ) * ( 256 - 2 * Y )
 1140                 LET D$ = D$ , CHR ( 48 * ( Y DIV 10 <> 0 ) + Y DIV 10 + ( Y DIV 10 > 9 ) * 7 ) , CHR ( 48 + Y MOD 10 ) , "    " ; NUL$ = CHR ( ( Y DIV 10 = 0 ) * 32 )
 1150               ELSE 
 1160                 LET D$ = D$ , "+" , CHR ( 48 * ( Y DIV 100 <> 0 ) + Y DIV 100 ) , CHR ( 48 * ( Y DIV 10 <> 0 ) + Y DIV 10 MOD 10 ) , CHR ( 48 + Y MOD 10 ) , "   "
 1170                 LET NO = ( Y DIV 100 = 0 ) + ( Y DIV 10 = 0 )
 1180                 IF NO THEN LET NUL$ = "  " ; NUL$ = NUL$ ( 1 , NO )
 1190               ENDIF 
 1200             ELSE 
 1210               LET D$ = D$ , ":" , CHR ( 48 + X MOD 32768 DIV 8192 ) , CHR ( 48 + X MOD 8192 DIV 2048 ) , CHR ( 48 + X MOD 2048 DIV 256 )
 1220               LET D$ = D$ , CHR ( 32 + 16 * ( X MOD 256 <> 0 ) + X MOD 256 DIV 16 + 7 * ( X MOD 256 DIV 16 > 9 ) )
 1230               LET D$ = D$ , CHR ( 32 + 16 * ( X MOD 256 <> 0 ) + X MOD 16 + 7 * ( X MOD 16 > 9 ) ) , "     "
 1240             ENDIF 
 1250           ENDIF 
 1260         ENDIF 
 1270         IF X > 1 AND X < 9 THEN LET BLTYPE ( JJJ ) = X ; WNR ( JJJ ) = 0
 1280         IF WNR ( JJJ ) = 1 AND X > 65505 THEN
 1290           LET KTRL ( JJJ ) = 0 ; D$ = "---" , CHR ( 65584 - X + 7 * ( 65536 - X > 9 ) ) , "---         "
 1300           LET KTRL ( JJJ ) = 1
 1310         ENDIF 
 1320         REM  RESTRUKT. 13.9.81 IHT NYERE ERKENDELSE! PL«nul»
 1330         IF NY = 4 THEN GOTO 1470
 1340         LET L$ = L$ , D$ ( 1 , 8 ) , NUL$ , " "
 1350         REM  IF KTRL(JJJ)=ANTALTAL TYPE(JJJ)=GAMLE(JJJ) «so» ????«nul»
 1360         LET Z1 = X DIV 256 ; Z2 = X MOD 256 ; Z1 = Z1 * ( Z1 > 31 AND Z1 < 94 AND Z1 <> 34 AND Z1 <> 60 ) ; Z2 = Z2 * ( Z2 > 31 AND Z2 <> 34 AND Z2 <> 60 AND Z2 < 94 )
 1370         LET L$ = L$ , CHR ( 32 + ( Z1 - 32 ) * ( Z1 <> 0 ) ) , CHR ( 33 + ( Z2 - 33 ) * ( Z2 <> 0 ) )
 1380       NEXT 
 1390       IF NY <> 3 THEN GOTO 1420
 1400       PRINT FILE ( 7 ) L$
 1410       PRINT "<6><1>" ; CHR ( 70 + ( ( JJ * 2 + HALV - 1 ) MOD 4 ) * 3 ) ; JJ * 2 + HALV - 1 ; L$
 1420     NEXT 
 1430   NEXT 
 1440 ENDWHILE
 1450 CLOSE
 1460 GOTO 0000
 1470 LET L$ = L$ , D$ ( 1 , 8 ) , NUL$ , "   "
 1480 LET Z1 = X DIV 256 ; Z2 = X MOD 256 ; Z1 = Z1 * ( Z1 > 31 AND Z1 < 94 AND Z1 <> 34 AND Z1 <> 60 ) ; Z2 = Z2 * ( Z2 > 31 AND Z2 <> 34 AND Z2 <> 60 AND Z2 < 94 )
 1490 LET L$ = L$ , CHR ( 32 + ( Z1 - 32 ) * ( Z1 <> 0 ) ) , CHR ( 32 + ( Z2 - 32 ) * ( Z2 <> 0 ) )
 1500 LET L = LEN ( L$ ) + 4 ; L$ = L$ , "                       "
 1510 FOR KK = 1 TO 16
 1520   LET L$ ( L + 20 - KK ) = CHR ( 48 + X MOD ( 2 ^ KK ) DIV ( 2 ^ ( KK - 1 ) ) )
 1530   IF KK = 8 THEN LET L = L - 1
 1540 NEXT 
 1550 LET Z1 = X DIV 256 ; L$ = L$ , "  "
 1560 FOR KK = 1 TO 2
 1570   IF KK = 2 THEN LET Z1 = X MOD 256
 1580   LET L$ = L$ , "<60>" , CHR ( Z1 DIV 100 + 32 + 16 * ( Z1 > 99 ) ) , CHR ( Z1 MOD 100 DIV 10 + 32 + 16 * ( Z1 > 9 ) ) , CHR ( Z1 MOD 10 + 48 ) , "> "
 1590 NEXT 
 1600 LET Z1 = X DIV 256 ; Z2 = Z1 DIV 16 ; L$ = L$ , "  " , CHR ( Z2 + 48 + 7 * ( Z2 > 9 ) )
 1610 LET Z2 = Z1 MOD 16 ; L$ = L$ , CHR ( Z2 + 48 + 7 * ( Z2 > 9 ) )
 1620 LET Z1 = X MOD 256 ; Z2 = Z1 DIV 16 ; L$ = L$ , CHR ( Z2 + 48 + 7 * ( Z2 > 9 ) )
 1630 LET Z2 = Z1 MOD 16 ; L$ = L$ , CHR ( Z2 + 48 + 7 * ( Z2 > 9 ) ) , "    "
 1640 PRINT L$ ; X
 1650 GOTO 1380
 1660 REM  «so» FLG RUTINE LAVER DEN "T"-FIL SOM OVENST PRG BRUGER«nul»
 1670 REM  ...............«nul»E
 1680 REM  PL & JK ETABL "T"-FIL AF EN BINÆR PROGRAMFIL TIL UDSKRIFT VED DOUDT *«so» LAVT«nul»
 1690 REM  SAVE"LAVT«nul»A
 1700 DIM A$ ( 128 )
 1710 DIM G$ ( 7 )
 1720 CLOSE
 1730 INPUT "ANTAL REC " , OLE
 1740 DELETE "T"
 1750 CREATE "T" , OLE , 129
 1760 OPEN FILE ( 1 , 1 ) "KOPIR"
 1770 OPEN FILE ( 2 , 0 ) "T"
 1780 GOTO 2110
 1790 FOR I = 1 TO OLE
 1800   WRITE FILE ( 2 , I ) 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
 1810   PRINT I ;
 1820 NEXT 
 1830 WHILE NOT EOF ( 1 ) AND SYS ( 7 ) <> 44 DO
 1840   LET A$ = "<0>"
 1850   REPEAT 
 1860     ON ERR THEN GOTO 1880
 1870     LET OLE = 1 / S\REN
 1880     ON ERR THEN IF LEN ( A$ ) < 128 THEN GOTO 1880
 1890     IF SYS ( 7 ) = 24 THEN LET A$ = A$ , "<60>" ; OLE = S\REN
 1900     IF SYS ( 7 ) = 17 THEN LET A$ = A$ , "<0>"
 1910     PRINT "?" ;
 1920     IF SYS ( 7 ) <> 16 AND SYS ( 7 ) <> 17 AND SYS ( 7 ) <> 24 THEN PRINT SYS ( 7 ) ;
 1930     IF EOF ( 1 ) OR SYS ( 7 ) = 44 THEN LET A$ = A$ , "                                                                               "
 1940     READ FILE ( 1 ) A$ ( LEN ( A$ ) + 1 , 128 )
 1950   UNTIL LEN ( A$ ) = 128
 1960   RESET ERR
 1970   FOR J = 1 TO 128
 1980     IF ORD ( A$ ( J ) ) > 31 AND ORD ( A$ ( J ) ) < 127 THEN
 1990       PRINT A$ ( J ) ;
 2000     ELSE 
 2010       LET G$ = "<60>#####"
 2020       LET G$ = G$ ( 1 , 2 + ( ORD ( A$ ( J ) ) > 9 ) + ( ORD ( A$ ( J ) ) > 99 ) ) , ">"
 2030       PRINT G$ , ORD ( A$ ( J ) ) ;
 2040     ENDIF 
 2050   NEXT 
 2060   LET T = T + 1
 2070   PRINT "det var" ; T ; "!"
 2080   WRITE FILE ( 2 , T ) A$
 2090 ENDWHILE
 2100 CLOSE
 2110 REM  ALTERNATIV RUTINE DER OSSE FÅR 8.BIT MED (21.5.81 PL)«nul» 
 2120 INPUT "START EFTER ANTAL REC: " , TTBEG
 2130 REPEAT 
 2140   ON ERR THEN GOTO 2250
 2150   READ FILE ( 1 ) Q , W , E , R , T , Y , U , I , O , P , ] , A , S , D , F , G , H , J , K , L , [ , \ , Z , X , C , V , B , N , M , QQ , WW , EE
 2160   LET TT = TT + 1
 2170   RESET ERR
 2180   IF TT < TTBEG THEN GOTO 2230
 2190   LET TT = TT - TTBEG + 1
 2200   WRITE FILE ( 2 , TT ) Q , W , E , R , T , Y , U , I , O , P , ] , A , S , D , F , G , H , J , K , L , [ , \ , Z , X , C , V , B , N , M , QQ , WW , EE
 2210   PRINT TT ;
 2220   LET TT = TT + TTBEG - 1
 2230   ON ERR THEN GOTO 2250
 2240   LET OLE = 1 / 0
 2250   IF SYS ( 7 ) <> 16 AND SYS ( 7 ) <> 44 THEN PRINT "FEJL" ; SYS ( 7 )
 2260 UNTIL EOF ( 1 ) OR SYS ( 7 ) = 44
 2270 CLOSE
 2280 END «nul»
 2290 REM  PL 21.5.81 «so» MONITOR FOR "KOPIR"-FILEN«nul»
 2300 CLOSE
 2310 OPEN FILE ( 1 , 1 ) "KOPIR"
 2320 PAGE = 80
 2330 TAB = 10
 2340 REPEAT 
 2350   READ FILE ( 1 ) A , B
 2360   FOR I = 1 TO 2
 2370     IF I = 2 THEN LET A = B
 2380     CALL "FIX" , A , A2 , A1
 2390     FOR II = 1 TO 2
 2400       IF II = 2 THEN LET A1 = A2
 2410       FOR III = 1 TO 2
 2420         LET A11 = A1 DIV 256 ; A12 = A1 MOD 256
 2430         IF III = 2 THEN LET A11 = A12
 2440         PRINT "<60>###>  " , A11 ;
 2450         IF A11 > 31 AND A11 < 127 THEN
 2460           PRINT CHR ( A11 ) ,
 2470         ELSE 
 2480           PRINT ,
 2490         ENDIF 
 2500       NEXT 
 2510     NEXT 
 2520   NEXT 
 2530 UNTIL EOF ( 1 )
 2540 CLOSE
 2550 RELEASE

UDAS Segment

    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 = 0x0188
    FNP definition = 0xffff
    FNQ definition = 0xffff
    FNR definition = 0xffff
    FNS definition = 0x01da
    FNT definition = 0x01b0
    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] = 0x03b7
      stack[1] = 0x0000
      stack[2] = 0x0000
      stack[3] = 0x0000
      stack[4] = 0x0000
      stack[5] = 0x0000
      stack[6] = 0x0000
    FOR-NEXT stack pointer = 0x0000
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 0   (0x00000000)
      Step Val = 0   (0x00000000)
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 1.98632e-76   (0x02170000)
      Step Val = 0   (0x00000000)
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 0   (0x00000000)
      Step Val = 5.14756e-85   (0x00000001)
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 0   (0x00000000)
      Step Val = 0   (0x00000000)
      Var# = 0x009f
      Loop Top = 0x02f5
      To Val = 32   (0x42200000)
      Step Val = 1   (0x41100000)
      Var# = 0x00a1
      Loop Top = 0x032c
      To Val = 2   (0x41200000)
      Step Val = 1   (0x41100000)
      Var# = 0x009d
      Loop Top = 0x033b
      To Val = 12   (0x41c00000)
      Step Val = 1   (0x41100000)
    REPEAT-UNTIL stack pointer = 0x0081
      stack[0] = 0x064f
      stack[1] = 0x0000
      stack[2] = 0x0000
      stack[3] = 0xc130
      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 0x00 KK
    0x82 0xffff 0x00 NY
    0x83 0xffff 0x00 FLG
    0x84 0xffff 0x00 G
    0x85 0xffff 0x00 T
    0x86 0xffff 0x02 L$
    0x87 0xffff 0x02 D$
    0x88 0xffff 0x02 NUL$
    0x89 0xffff 0x00 MM
    0x8a 0xffff 0x00 M
    0x8b 0xffff 0x00 R
    0x8c 0xffff 0x00 KTRL
    0x8d 0xffff 0x00 WNR
    0x8e 0xffff 0x00 BLTYPE
    0x8f 0xffff 0x00 I
    0x90 0xffff 0x00 RELBIN
    0x91 0xffff 0x00 JJJMAX
    0x92 0xffff 0x00 WOMBYT
    0x93 0xffff 0x00 MO
    0x94 0xffff 0x00 PAGIN
    0x95 0xffff 0x00 ANTALTAL
    0x96 0xffff 0x00 A
    0x97 0xffff 0x00 B
    0x98 0xffff 0x00 C
    0x99 0xffff 0x00 REC
    0x9a 0xffff 0x00 RECMAX
    0x9b 0xffff 0x00 X
    0x9c 0xffff 0x00 Z
    0x9d 0xffff 0x00 JJJ
    0x9e 0xffff 0x00 KT
    0x9f 0xffff 0x00 JJ
    0xa0 0xffff 0x00 INDGREB
    0xa1 0xffff 0x00 HALV
    0xa2 0xffff 0x00 Y
    0xa3 0xffff 0x00 NO
    0xa4 0xffff 0x00 X1
    0xa5 0xffff 0x00 REC1
    0xa6 0xffff 0x00 X11
    0xa7 0xffff 0x00 JJJJ
    0xa8 0xffff 0x00 DDD
    0xa9 0xffff 0x00 Z1
    0xaa 0xffff 0x00 Z2
    0xab 0xffff 0x00 L
    0xac 0xffff 0x02 A$
    0xad 0xffff 0x02 G$
    0xae 0xffff 0x00 OLE
    0xaf 0xffff 0x00 S\REN
    0xb0 0xffff 0x00 J
    0xb1 0xffff 0x00 TTBEG
    0xb2 0xffff 0x00 Q
    0xb3 0xffff 0x00 W
    0xb4 0xffff 0x00 E
    0xb5 0xffff 0x00 U
    0xb6 0xffff 0x00 O
    0xb7 0xffff 0x00 P
    0xb8 0xffff 0x00 ]
    0xb9 0xffff 0x00 S
    0xba 0xffff 0x00 D
    0xbb 0xffff 0x00 F
    0xbc 0xffff 0x00 H
    0xbd 0xffff 0x00 K
    0xbe 0xffff 0x00 [
    0xbf 0xffff 0x00 \
    0xc0 0xffff 0x00 V
    0xc1 0xffff 0x00 N
    0xc2 0xffff 0x00 QQ
    0xc3 0xffff 0x00 WW
    0xc4 0xffff 0x00 EE
    0xc5 0xffff 0x00 TT
    0xc6 0xffff 0x00 A2
    0xc7 0xffff 0x00 A1
    0xc8 0xffff 0x00 II
    0xc9 0xffff 0x00 III
    0xca 0xffff 0x00 A11
    0xcb 0xffff 0x00 A12

Wrapper

.magic = 0x4e32
.u_pas = 0x0e07  // Length of UPAS in words
.u_das = 0x01e4  // Length of UDAS in words
.u_dvs = 0x01e4  // Start på savede variabel indhold (word adr)
.u_nds = 0x0042  // Address på næste prog.sætning (word adr)
.u_cps = 0x0042  // Address på curr prog.sætning (word adr)
.u_tll = 0x0000  // 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)