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

⟦37c5d72bb⟧ COMAL_SAVE

    Length: 10296 (0x2838)
    Types: COMAL_SAVE

Derivation

└─⟦466f46364⟧ Bits:30001785 SG0005 Floppy
    └─ ⟦684efa5fb⟧ »/REP99« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "REP99"

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

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] = 0x0262
      stack[1] = 0x0000
      stack[2] = 0x0000
      stack[3] = 0x0000
      stack[4] = 0x0000
      stack[5] = 0x0000
      stack[6] = 0x0000
    FOR-NEXT stack pointer = 0x0000
      Var# = 0x01c8
      Loop Top = 0x02dd
      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 = 0x0243
      To Val = 65534   (0x44fffe00)
      Step Val = 1   (0x41100000)
      Var# = 0x0084
      Loop Top = 0x0315
      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
    0x9c 0xffff 0x00 LASTVAL
    0x9d 0xffff 0x02 ERROR$

Wrapper

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