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

⟦24e21b188⟧ COMAL_SAVE

    Length: 10078 (0x275e)
    Types: COMAL_SAVE

Derivation

└─⟦466f46364⟧ Bits:30001785 SG0005 Floppy
    └─ ⟦886d9d12d⟧ »/REP76« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "REP76"

 0010 REM  830201PHK RE BINARY FILE DISASSSEMBLER«nul»
 0020 LET WORDA = 1
 0030 PROC WORD
 0040   IF WORDA THEN
 0050     READ FILE ( 1 ) WORDB
 0060     CALL "FIX" , WORDB , WORDC , WORDD
 0070     LET A = WORDC DIV 256 + 256 * ( WORDC MOD 256 ) ; WORDA = 0
 0080   ELSE 
 0090     LET A = WORDD DIV 256 + 256 * ( WORDD MOD 256 ) ; WORDA = 1
 0100   ENDIF 
 0110 ENDPROC
 0120 DIM HEX4$ ( 16 )
 0130 LET HEX4$ = "0123456789ABCDEF"
 0140 PROC HEX4
 0150   PRINT HEX4$ ( A DIV 4096 + 1 ) ; HEX4$ ( A DIV 256 MOD 16 + 1 ) ; HEX4$ ( A DIV 16 MOD 16 + 1 ) ; HEX4$ ( A MOD 16 + 1 ) ;
 0160 ENDPROC
 0170 PROC HEX2
 0180   PRINT HEX4$ ( A DIV 16 MOD 16 + 1 ) ; HEX4$ ( A MOD 16 + 1 ) ;
 0190 ENDPROC
 0200 DIM FIL$ ( 5 )
 0210 DIM RELOC ( 3 )
 0220 DIM RELOC$ ( 8 )
 0230 LET RELOC$ = " '<34>-=$*~"
 0240 DIM JJID$ ( 12 )
 0250 LET JJID$ = "JMPJSRISZDSZ"
 0260 DIM ADR$ ( 1 )
 0270 DIM DAT$ ( 1 )
 0280 LET A = 0
 0290 READ B , FIL$
 0300 IF B = - 1 THEN GOTO 0330
 0310 LET A = A + 1
 0320 GOTO 0290
 0330 LET SYMMAX = A
 0340 DIM SYMB ( SYMMAX ) , SYMB$ ( SYMMAX , 5 )
 0350 RESTORE 0000
 0360 FOR A = 1 TO SYMMAX
 0370   READ SYMB ( A ) , SYMB$ ( A )
 0380 NEXT 
 0390 INPUT "<12><6>`<10>INPUT FILENAME OF COPS TO DISASSEMBLE:" , FIL$
 0400 CLOSE
 0410 OPEN FILE ( 1 , 1 ) FIL$
 0420 LET ENDF = 0
 0430 REPEAT 
 0440   EXEC WORD
 0450   LET BLKTP = A
 0460   EXEC WORD
 0470   LET LENGTH = A
 0480   CASE BLKTP OF
 0490     PRINT "UNPROCESSED BLOCK. TYPE:" ;
 0500     LET A = BLKTP
 0510     EXEC HEX4
 0520     PRINT
 0530     FOR B = LENGTH TO 65539
 0540       EXEC WORD
 0550     NEXT 
 0560   WHEN 0
 0570     LET ENDF = 1
 0580   WHEN 2
 0590     FOR B = 1 TO 3
 0600       EXEC WORD
 0610       LET RELOC ( B ) = A
 0620     NEXT 
 0630     EXEC WORD
 0640     EXEC WORD
 0650     LET ADR = A
 0660     LET ADR$ = RELOC$ ( RELOC ( 1 ) DIV 8192 )
 0670     FOR B = LENGTH TO 65534
 0680       LET A = ADR ; C = B - LENGTH + 1
 0690       EXEC HEX4
 0700       PRINT ADR$ ; " " ;
 0710       EXEC WORD
 0720       EXEC HEX4
 0730       LET DAT$ = RELOC$ ( RELOC ( C DIV 5 + 1 ) / 2 DIV 8 ^ ( 4 - C MOD 5 ) MOD 8 )
 0740       PRINT DAT$ ; " " ;
 0750       CASE DAT$ OF
 0760         REM «nul»
 0770       WHEN " "
 0780         LET C = A DIV 256 ; C = 32 + ( ( C - 32 ) * ( C > 32 AND C < 127 ) ) ; D = A MOD 256 ; D = 32 + ( D - 32 ) * ( D > 32 AND D < 127 )
 0790         PRINT CHR ( C ) ; CHR ( D ) ; "   " ;
 0800         FOR C = 1 TO SYMMAX
 0810           IF A = SYMB ( C ) THEN
 0820             PRINT SYMB$ ( C ) ;
 0830             LET C = SYMMAX ; D = 0
 0840           ENDIF 
 0850         NEXT 
 0860         IF NOT D THEN GOTO 1160
 0870         IF A < 8192 THEN
 0880           IF A < 256 THEN
 0890             EXEC HEX4
 0900           ELSE 
 0910             PRINT JJID$ ( ( A DIV 2048 ) * 3 + 1 , ( A DIV 2048 ) * 3 + 3 ) ; "   " ; CHR ( 32 + 32 * ( A DIV 1024 MOD 2 ) ) ; " " ;
 0920             CASE A DIV 256 MOD 4 OF
 0930               LET C = A ; A = ABS ( A MOD 256 - 256 * ( A DIV 128 MOD 2 ) )
 0940               EXEC HEX2
 0950               PRINT ",#" , CHR ( C DIV 256 MOD 4 + 48 ) ;
 0960             WHEN 0
 0970               LET A = A MOD 256
 0980               EXEC HEX2
 0990             WHEN 1
 1000               LET A = A MOD 256 - 256 * ( A DIV 128 MOD 2 ) ; A = ADR + A
 1010               EXEC HEX4
 1020               PRINT ADR$ ;
 1030             ENDCASE «nul»«bel» 
 1040           ENDIF 
 1050         ELSE 
 1060           IF A < 24576 THEN
 1070             PRINT "LDASTA" ;
 1080           ELSE 
 1090             IF A > 32767 THEN
 1100               PRINT "COMNEGMOVINCADCSUBADDAND" ;
 1110             ELSE 
 1120               PRINT "NIODIADOADIBDOBDICDOCSKP" ;
 1130             ENDIF 
 1140           ENDIF 
 1150         ENDIF 
 1160       WHEN "'" , "-" , "=" , "*"
 1170         PRINT "     " ;
 1180         EXEC HEX4
 1190         PRINT DAT$ ;
 1200       WHEN "<34>"
 1210         PRINT "     " ;
 1220         LET A = A / 2
 1230         EXEC HEX4
 1240         PRINT "'*2" ;
 1250       ENDCASE «nul» 
 1260       LET ADR = ADR + 1
 1270       PRINT
 1280     NEXT 
 1290   WHEN 6
 1300     FOR B = 1 TO 5
 1310       EXEC WORD
 1320     NEXT 
 1330     PRINT "ENTRYPOINT:" ;
 1340     EXEC HEX4
 1350     PRINT
 1360   ENDCASE «nul» 
 1370 UNTIL ENDF
 1380 DATA 3644 "A.EXT"
 1390 DATA 3648 "A.GBY"
 1400 DATA 3650 "A.GDO"
 1410 DATA 3651 "A.GTR"
 1420 DATA 3649 "A.GWO"
 1430 DATA 3652 "A.PBY"
 1440 DATA 3654 "A.PDO"
 1450 DATA 3655 "A.PTR"
 1460 DATA 3653 "A.PWO"
 1470 DATA 3647 "A.REL"
 1480 DATA 3646 "A.RES"
 1490 DATA 3645 "A.TRU"
 1500 DATA 3226 "BINDE"
 1510 DATA 3082 "BREAK"
 1520 DATA 3309 "CALL "
 1530 DATA 3292 "CDELA"
 1540 DATA 3304 "CHANG"
 1550 DATA 3081 "CLEAN"
 1560 DATA 3216 "CLOSE"
 1570 DATA 3308 "COMON"
 1580 DATA 3195 "CONBY"
 1590 DATA 3301 "CPASS"
 1600 DATA 3297 "CPRIN"
 1610 DATA 3302 "CREAT"
 1620 DATA 3316 "CSEND"
 1630 DATA 3296 "CTEST"
 1640 DATA 3298 "CTOUT"
 1650 DATA 3295 "CWANS"
 1660 DATA 3680 "C.CHA"
 1670 DATA 3678 "C.CRE"
 1680 DATA 3679 "C.REM"
 1690 DATA 3227 "DECBI"
 1700 DATA 3199 "DIVID"
 1710 DATA 3236 "ERROR"
 1720 DATA 3232 "EXECU"
 1730 DATA 3291 "FREEC"
 1740 DATA 3208 "FREES"
 1750 DATA 3663 "F.BAC"
 1760 DATA 3668 "F.CAT"
 1770 DATA 3667 "F.CHA"
 1780 DATA 3664 "F.CHE"
 1790 DATA 3673 "F.CLO"
 1800 DATA 3669 "F.CRE"
 1810 DATA 3670 "F.DEL"
 1820 DATA 3661 "F.ICH"
 1830 DATA 3672 "F.LOO"
 1840 DATA 3660 "F.OBL"
 1850 DATA 3658 "F.OCH"
 1860 DATA 3659 "F.OTE"
 1870 DATA 3665 "F.PRE"
 1880 DATA 3657 "F.REL"
 1890 DATA 3671 "F.REN"
 1900 DATA 3656 "F.RES"
 1910 DATA 3662 "F.SET"
 1920 DATA 3666 "F.WAI"
 1930 DATA 3311 "GETAD"
 1940 DATA 3196 "GETBY"
 1950 DATA 3312 "GETPO"
 1960 DATA 3200 "GETRE"
 1970 DATA 3310 "GOTO "
 1980 DATA 26175 "HALT "
 1990 DATA 3205 "INBLO"
 2000 DATA 3207 "INCHA"
 2010 DATA 3306 "INITC"
 2020 DATA 3219 "INNAM"
 2030 DATA 25407 "INTA "
 2040 DATA 24767 "INTDS"
 2050 DATA 24703 "INTEN"
 2060 DATA 3221 "INTPR"
 2070 DATA 26047 "IORST"
 2080 DATA 3303 "LOOKU"
 2090 DATA 3220 "MOVE "
 2100 DATA 25663 "MSKO "
 2110 DATA 3198 "MULTI"
 2120 DATA 3684 "M.CLO"
 2130 DATA 3689 "M.EXC"
 2140 DATA 3681 "M.FRE"
 2150 DATA 3688 "M.INC"
 2160 DATA 3685 "M.INI"
 2170 DATA 3686 "M.LOC"
 2180 DATA 3683 "M.LOO"
 2190 DATA 3682 "M.NEW"
 2200 DATA 3687 "M.USE"
 2210 DATA 3290 "NEWCA"
 2220 DATA 3188 "NEXTO"
 2230 DATA 3217 "OPEN "
 2240 DATA 3206 "OUTBL"
 2250 DATA 3110 "OUTCH"
 2260 DATA 3212 "OUTEN"
 2270 DATA 3211 "OUTNL"
 2280 DATA 3214 "OUTOC"
 2290 DATA 3209 "OUTSP"
 2300 DATA 3213 "OUTTE"
 2310 DATA 3197 "PUTBY"
 2320 DATA 3201 "PUTRE"
 2330 DATA 24895 "READS"
 2340 DATA 3085 "RECHA"
 2350 DATA 3305 "REMOV"
 2360 DATA 1185 "RET0"
 2370 DATA 1186 "RET1"
 2380 DATA 1187 "RET2"
 2390 DATA 3189 "RETUR"
 2400 DATA 3080 "SEARC"
 2410 DATA 3079 "SENDA"
 2420 DATA 3076 "SENDM"
 2430 DATA 3194 "SETCO"
 2440 DATA 3307 "SETEN"
 2450 DATA 3192 "SETIN"
 2460 DATA 3215 "SETPO"
 2470 DATA 3193 "SETRE"
 2480 DATA 3300 "SIGCH"
 2490 DATA 3317 "SIGGE"
 2500 DATA 3299 "SIGNA"
 2510 DATA 3084 "START"
 2520 DATA 3083 "STOPP"
 2530 DATA 3204 "TRANS"
 2540 DATA 3675 "T.ALL"
 2550 DATA 3674 "T.DAT"
 2560 DATA 3676 "T.SEC"
 2570 DATA 3677 "T.TIM"
 2580 DATA 3074 "WAIT "
 2590 DATA 3077 "WAITA"
 2600 DATA 3294 "WAITC"
 2610 DATA 3078 "WAITE"
 2620 DATA 3318 "WAITG"
 2630 DATA 3075 "WAITI"
 2640 DATA 3191 "WAITO"
 2650 DATA 3293 "WAITS"
 2660 DATA 3202 "WAITT"
 2670 DATA 3218 "WAITZ"
 2680 DATA 1142 ".CLEA"
 2690 DATA 1168 ".CLOS"
 2700 DATA 1147 ".CONB"
 2710 DATA 1151 ".DIVI"
 2720 DATA 1160 ".FREE"
 2730 DATA 1148 ".GETB"
 2740 DATA 1152 ".GETR"
 2750 DATA 1157 ".INBL"
 2760 DATA 1159 ".INCH"
 2770 DATA 1150 ".MULT"
 2780 DATA 1140 ".NEXT"
 2790 DATA 1169 ".OPEN"
 2800 DATA 1158 ".OUTB"
 2810 DATA 1162 ".OUTC"
 2820 DATA 1164 ".OUTE"
 2830 DATA 1163 ".OUTN"
 2840 DATA 1166 ".OUTO"
 2850 DATA 1161 ".OUTS"
 2860 DATA 1165 ".OUTT"
 2870 DATA 1149 ".PUTB"
 2880 DATA 1153 ".PUTR"
 2890 DATA 1155 ".REPE"
 2900 DATA 1141 ".RETU"
 2910 DATA 1146 ".SETC"
 2920 DATA 1144 ".SETI"
 2930 DATA 1167 ".SETP"
 2940 DATA 1145 ".SETR"
 2950 DATA 1156 ".TRAN"
 2960 DATA 1154 ".WAIT"
 2970 DATA - 1 ""
 2980 DATA 301 "KAN IKKE GENKENDE TEGN "
 2990 DATA 302 "SYNTAX-FEJL "
 3000 DATA 303 "INTET LAGER "
 3010 DATA 304 "ULOVLIG NOEGLE "
 3020 DATA 305 "ULOVLIGT SAETNINGSNUMMER "
 3030 DATA 306 "FOR MANGE NAVNE "
 3040 DATA 307 "KAN IKKE UDF0RE KOMMANDO FRA ENHED "
 3050 DATA 308 "ULOVLIG PAGE/TAB KOMMANDO "
 3060 DATA 309 "LINIE FOR LANG "
 3070 DATA 310 "TID OVERSKREDET "
 3080 DATA 311 "NAVN FOR LANGT "
 3090 DATA 312 "ULOVLIG  KOMMANDO "
 3100 DATA 313 "LINIENUMMER FINDES IKKE "
 3110 DATA 314 "PROGRAM FOR STORT "
 3120 DATA 315 "IKKE FLERE DATA TIL READ "
 3130 DATA 316 "ARITMETISK FEJL "
 3140 DATA 317 "UDEFINERET VARIABEL "
 3150 DATA 318 "GOSUB-RETURN DYBDE "
 3160 DATA 319 "RETURN UDEN GOSUB "
 3170 DATA 320 "FOR-NEXT DYBDE "
 3180 DATA 321 "FOR UDEN NEXT "
 3190 DATA 322 "NEXT UDEN FOR "
 3200 DATA 323 "INGEN LAGERPLADS TIL VARIABLE "
 3210 DATA 324 "<60> ULOVLIGT ANVENDT"
 3220 DATA 325 "FACILITET IKKE INDEHOLDT I SYSTEM "
 3230 DATA 326 "KUN TILLADT FRA MASTERTERMINAL "
 3240 DATA 327 "ULOVLIGT FILNUMMER "
 3250 DATA 328 "OPRINDELIG DIMENSIONERING OVERSKREDET "
 3260 DATA 329 "UDTRYKKET ER FOR KOMPLICERET "
 3270 DATA 330 "ULOVLIG FILLAENGDE "
 3280 DATA 331 "INDEKSFEJL "
 3290 DATA 332 "UDEFINERET FUNKTION "
 3300 DATA 334 "ULOVLIGT FUNKTIONSARGUMENT "
 3310 DATA 335 "FORMATFEJL I PRINT USING "
 3320 DATA 336 "PRINTELEMENT FOR LANGT "
 3330 DATA 337 "DETERMINANT ER NUL "
 3340 DATA 338 "VARIABEL EJ DIMENSIONERET "
 3350 DATA 339 "SAMME MATRIX PAA BEGGE SIDER AF LIGHEDSTEGN "
 3360 DATA 340 "FEJL I MATRIX-DIMENSIONER "
 3370 DATA 341 "MATRIX IKKE KVADRATISK "
 3380 DATA 342 "FIL ALLEREDE AABEN "
 3390 DATA 344 "FIL IKKE AABNET "
 3400 DATA 345 "PROC UDEN ENDPROC "
 3410 DATA 346 "PROCEDURE IKKE FUNDET "
 3420 DATA 347 "PARAMETERFEJL "
 3430 DATA 348 "EJ SAVE-FIL "
 3440 DATA 349 "BESKYTTET FACILITET "
 3450 DATA 351 "ELSE UDEN IF "
 3460 DATA 352 "IF/ELSE UDEN ENDIF "
 3470 DATA 353 "WHILE UDEN ENDWHILE "
 3480 DATA 354 "WHILE-ENDWHILE DYBDE "
 3490 DATA 355 "ENDWHILE UDEN WHILE "
 3500 DATA 356 "ENDIF UDEN IF "
 3510 DATA 357 "REPEAT-UNTIL DYBDE "
 3520 DATA 358 "UNTIL UDEN REPEAT "
 3530 DATA 359 "CASE UDEN WHEN,CASEFEJL "
 3540 DATA 360 "CASE UDEN ENDCASE "
 3550 DATA 361 "ENDCASE UDEN CASE "
 3560 DATA 362 "WHEN UDEN CASE "
 3570 DATA 363 "CASE DYBDE "
 3580 DATA 364 "IKKE EN DIMENSIONERET VARIABEL "
 3590 DATA 365 "ULOVLIG TYPE "
 3600 DATA 366 "TYPE KONFLIKT "
 3610 DATA 367 "SYSTEM FEJL' "
 3620 DATA 368 "SYSTEM FEJL "
 3630 DATA 369 "SYSTEM FEJL "
 3640 DATA 370 "SYSTEM FEJL "
 3650 DATA 371 "SYSTEM FEJL "
 3660 DATA 372 "SYSTEM FEJL "
 3670 DATA 373 "SYSTEM FEJL "
 3680 DATA 374 "SYSTEM FEJL "
 3690 DATA 375 "SYSTEM FEJL "
 3700 DATA 376 "SYSTEM FEJL "
 3710 DATA 390 "BRUGER CALL FEJL 1 "
 3720 DATA 391 "BRUGER CALL FEJL 2 "
 3730 DATA 398 "PAGING FEJL "
 3740 DATA 399 "STACK OVERLOEB "
 3750 DATA 401 "FIL FORKERT AABNET "
 3760 DATA 402 "FIL I BRUG "
 3770 DATA 403 "ULOVLIGT FILNAVN "
 3780 DATA 404 "INGEN LD TILKNYTTET "
 3790 DATA 405 "ULOVLIG KOMMANDO TIL LD/SUBCATALOG "
 3800 DATA 406 "ULOVLIG OPERATION PAA FIL "
 3810 DATA 407 "END OF FILE "
 3820 DATA 408 "FILLAENGDE FOR STOR "
 3830 DATA 409 "FIL EKSISTERER "
 3840 DATA 410 "LD/SUBCATALOG UKENDT "
 3850 DATA 411 "ENHED UKENDT "
 3860 DATA 412 "ENHED ER INITIALISERET "
 3870 DATA 413 "LD RESERVERET "
 3880 DATA 414 "FORKERT NOEGLE "
 3890 DATA 415 "AABNE FILER PAA LD/SUBCATALOG "
 3900 DATA 416 "LD RESERVERET PAA ENHED "
 3910 DATA 417 "RECORD FOR LANG "
 3920 DATA 418 "IKKE FLERE FILBESKRIVELSER "
 3930 DATA 419 "ULOVLIGT RECORDNR "
 3940 DATA 420 "SE MANUAL APP. A "
 3950 DATA 421 "SE MANUAL APP. A "
 3960 DATA 422 "SE MANUAL APP. A "
 3970 DATA 423 "SE MANUAL APP. A "
 3980 DATA 424 "SE MANUAL APP. A "
 3990 DATA 425 "SE MANUAL APP. A "
 4000 DATA 426 "SE MANUAL APP. A "
 4010 DATA 427 "SE MANUAL APP. A "
 4020 DATA 428 "SE MANUAL APP. A "
 4030 DATA 429 "SE MANUAL APP. A "
 4040 DATA 430 "SE MANUAL APP. A "
 4050 DATA 431 "SE MANUAL APP. A "
 4060 DATA 432 "SE MANUAL APP. A "
 4070 DATA 433 "SE MANUAL APP. A "
 4080 DATA 434 "SE MANUAL APP. A "
 4090 DATA 435 "SYSTEM FEJL "
 4100 DATA 436 "LD I BRUG PAA ENHED "
 4110 DATA 460 "CATALOG I/O FEJL "
 4120 DATA 461 "SUBCATALOG UKENDT "
 4130 DATA 465 "DISK SKRIVEBESKYTTET "
 4140 DATA 466 "ULOVLIG OPERATION "
 4150 DATA 467 "IKKE FLERE AREALPROCESSER "
 4160 DATA 472 "INDEXBLOCK FULD "
 4170 DATA 480 "CATALOG I/O FEJL "
 4180 DATA 481 "DISK OFF-LINE "
 4190 DATA 485 "DISK SKRIVEBESKYTTET "
 4200 DATA 486 "ULOVLIG OPERATION "
 4210 DATA 487 "DISK FULD "
 4220 DATA 492 "INDEXBLOCK FULD "

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 = 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] = 0x0256
      stack[1] = 0x0000
      stack[2] = 0x0000
      stack[3] = 0x0000
      stack[4] = 0x0000
      stack[5] = 0x0000
      stack[6] = 0x0000
    FOR-NEXT stack pointer = 0x0000
      Var# = 0x01bc
      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 = 3.3735e-80   (0x00010000)
      Var# = 0x0000
      Loop Top = 0x0000
      To Val = 0   (0x00000000)
      Step Val = 0   (0x00000000)
      Var# = 0x0082
      Loop Top = 0x0237
      To Val = 65534   (0x44fffe00)
      Step Val = 1   (0x41100000)
      Var# = 0x0084
      Loop Top = 0x02c7
      To Val = 159   (0x429f0000)
      Step Val = 1   (0x41100000)
      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 0x00 WORD
    0x82 0xffff 0x00 B
    0x83 0xffff 0x00 A
    0x84 0xffff 0x00 C
    0x85 0xffff 0x00 D
    0x86 0xffff 0x00 WORDA
    0x87 0xffff 0x00 WORDB
    0x88 0xffff 0x00 WORDC
    0x89 0xffff 0x00 WORDD
    0x8a 0xffff 0x00 HEX4
    0x8b 0xffff 0x02 HEX4$
    0x8c 0xffff 0x00 HEX2
    0x8d 0xffff 0x02 FIL$
    0x8e 0xffff 0x00 ENDF
    0x8f 0xffff 0x00 BLKTP
    0x90 0xffff 0x00 LENGTH
    0x91 0xffff 0x00 RELOC
    0x92 0xffff 0x02 RELOC$
    0x93 0xffff 0x02 ADR$
    0x94 0xffff 0x00 ADR
    0x95 0xffff 0x02 DAT$
    0x96 0xffff 0x00 SYMMAX
    0x97 0xffff 0x00 SYMB
    0x98 0xffff 0x02 SYMB$
    0x99 0xffff 0x02 JJID$
    0x9a 0xffff 0x00 SUTO
    0x9b 0xffff 0x00 LOST

Wrapper

.magic = 0x4e32
.u_pas = 0x12ac  // Length of UPAS in words
.u_das = 0x00f4  // Length of UDAS in words
.u_dvs = 0x00f4  // 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 = 0x000e  // 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)