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

⟦1604cf666⟧ COMAL_SAVE

    Length: 11958 (0x2eb6)
    Types: COMAL_SAVE

Derivation

└─⟦466f46364⟧ Bits:30001785 SG0005 Floppy
    └─ ⟦c7fd47bf2⟧ »/REP98« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "REP98"

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

Wrapper

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