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

⟦0e35424b4⟧ COMAL_SAVE

    Length: 19982 (0x4e0e)
    Types: COMAL_SAVE

Derivation

└─⟦466f46364⟧ Bits:30001785 SG0005 Floppy
    └─ ⟦b84101a10⟧ »/REP56« 
        └─⟦this⟧

UPAS Segment

SAVE filename: "REP56"

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