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

⟦d97b3e7d4⟧ COMAL_SAVE

    Length: 20006 (0x4e26)
    Types: COMAL_SAVE

Derivation

└─⟦466f46364⟧ Bits:30001785 SG0005 Floppy
    └─ ⟦e20cb3449⟧ »/REP00« 
└─⟦a1ade7893⟧ Bits:30000467 DOMUS disk image, Nakskov Gymnasium, RC-BASIC/COMAL
    └─ ⟦e20cb3449⟧ »/REP00« 
└─⟦d04eec1df⟧ Bits:30000466 DOMUS disk image (Nakskov Gymnasium)
    └─ ⟦e20cb3449⟧ »/REP00« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "REP00"

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

Wrapper

.magic = 0x4e32
.u_pas = 0x19d4  // Length of UPAS in words
.u_das = 0x0d30  // Length of UDAS in words
.u_dvs = 0x0130  // Start på savede variabel indhold (word adr)
.u_nds = 0x07d4  // Address på næste prog.sætning (word adr)
.u_cps = 0x07d4  // Address på curr prog.sætning (word adr)
.u_tll = 0x0048  // 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 = 0x11a2  // ON ESE (word adr)
.u_era = 0x2343  // ON ERR (word adr)
.u_cas = 0xffff  // CASE dybde
.u_las = 0xffff  // last (-1)