DataMuseum.dk

Presents historical artifacts from the history of:

Zilog MCZ Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦08133da5a⟧

    Length: 2362 (0x93a)
    Notes: ZILOG_BASIC
    Names: »S.BP«

Derivation

└─⟦3b14772ef⟧ Bits:30006814 8" ZilogMCZ floppy NThun_0016 (OPERATIVSYSTEM 1/05 850619 KOPI)
    └─ ⟦this⟧ »S.BP« 

OctetView

0x000…014 BasicHead {variables=0x0004, stms=0x00ec, f2=0x0836, f3=0000000000000000000000000000}
0x014…018 [
0x014…018   [0x0]: VarDef {f0=0x0400, f1=0x0f, f2=0x28} I% 0x0
0x014…018 ]
0x018…01c Statement 01792 @0x939
0x01c…020 Statement 01664 @0x91c
0x020…024 Statement 01648 @0x91a
0x024…028 Statement 01632 @0x918
0x028…02c Statement 01616 @0x90d
0x02c…030 Statement 01600 @0x907
0x030…034 Statement 01584 @0x8f5
0x034…038 Statement 01568 @0x8ea
0x038…03c Statement 01552 @0x8e1
0x03c…040 Statement 01536 @0x8ce
0x040…044 Statement 01424 @0x8c6
0x044…048 Statement 01408 @0x8bd
0x048…04c Statement 01392 @0x8ae
0x04c…050 Statement 01376 @0x8a3
0x050…054 Statement 01360 @0x895
0x054…058 Statement 01344 @0x88a
0x058…05c Statement 01328 @0x87e
0x05c…060 Statement 01312 @0x875
0x060…064 Statement 01296 @0x86a
0x064…068 Statement 01280 @0x861
0x068…06c Statement 01168 @0x856
0x06c…070 Statement 01152 @0x84d
0x070…074 Statement 01136 @0x844
0x074…078 Statement 01120 @0x83d
0x078…07c Statement 01104 @0x83a
0x07c…080 Statement 01088 @0x80d
0x080…084 Statement 01072 @0x80b
0x084…088 Statement 01056 @0x7d9
0x088…08c Statement 01024 @0x7d7
0x08c…090 Statement 00917 @0x7a3
0x090…094 Statement 00912 @0x766
0x094…098 Statement 00896 @0x727
0x098…09c Statement 00880 @0x6dc
0x09c…0a0 Statement 00864 @0x69b
0x0a0…0a4 Statement 00848 @0x655
0x0a4…0a8 Statement 00832 @0x612
0x0a8…0ac Statement 00816 @0x5d4
0x0ac…0b0 Statement 00800 @0x599
0x0b0…0b4 Statement 00784 @0x54e
0x0b4…0b8 Statement 00768 @0x514
0x0b8…0bc Statement 00656 @0x4cd
0x0bc…0c0 Statement 00640 @0x492
0x0c0…0c4 Statement 00624 @0x44b
0x0c4…0c8 Statement 00608 @0x414
0x0c8…0cc Statement 00592 @0x3de
0x0cc…0d0 Statement 00576 @0x3aa
0x0d0…0d4 Statement 00560 @0x368
0x0d4…0d8 Statement 00544 @0x325
0x0d8…0dc Statement 00528 @0x2e9
0x0dc…0e0 Statement 00400 @0x2bb
0x0e0…0e4 Statement 00384 @0x28d
0x0e4…0e8 Statement 00352 @0x28b
0x0e8…0ec Statement 00336 @0x289
0x0ec…0f0 Statement 00320 @0x23e
0x0f0…0f4 Statement 00304 @0x1f2
0x0f4…0f8 Statement 00288 @0x1a6
0x0f8…0fc Statement 00272 @0x15a
0x0fc…100 Statement 00256 @0x10f
0x100…104 Statement 00080 @0x104
0x104…10f 0050 PRINT = ( 27 )  → af700145e2f3
0x10f…15a 0100 PRINT »      ~~ M A P D A T   F O T O G R A M M E T R I ~~~~~~~~~~ viak a/s ~~« EOS
0x15a…1a6 0110 PRINT »     |                                                                 |« EOS
0x1a6…1f2 0120 PRINT »     |                S T E R E O D I G     versjon 2.0                |« EOS
0x1f2…23e 0130 PRINT »     |                                                                 |« EOS
0x23e…289 0140 PRINT »      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~« EOS
0x289…28b 0150 PRINT EOS
0x28b…28d 0160 PRINT EOS
0x28d…2bb 0180 PRINT »                                 HOVEDMENY« EOS
0x2bb…2e9 0190 PRINT »                                 ---------« EOS
0x2e9…325 0210 PRINT »               1.  DEF ......... Definisjon av tabeller.« EOS
0x325…368 0220 PRINT »               2.  INDAT ....... Input data for transformasjon.« EOS
0x368…3aa 0230 PRINT »               3.  TRANS ....... 3-D ortogonal transformasjon.« EOS
0x3aa…3de 0240 PRINT »               4.  DIG ......... Digitalisering.« EOS
0x3de…414 0250 PRINT »               5.  PRINT ....... Print resultater.« EOS
0x414…44b 0260 PRINT »               6.  DIG.AER...... Aerotriangolation.« EOS
0x44b…492 0270 PRINT »               7.  AKSER ....... Valg af stigningsretning i x og y.« EOS
0x492…4cd 0280 PRINT »               8.  DIG.TEST .... Testprogram til x,y,z.« EOS
0x4cd…514 0290 PRINT »               9.  AFSTAND ..... Beregning af afstand mellem 2 pkt.« EOS
0x514…54e 0300 PRINT »              10.  VEND.AKSER .. Vender akser i filer.« EOS
0x54e…599 0310 PRINT »              11.  VEJPLAN ..... Beregner manglende hj||rner af planer.« EOS
0x599…5d4 0320 PRINT »              12.  DIG.KORREKS . Flytter origo i filer.« EOS
0x5d4…612 0330 PRINT »              13.  KOREG ....... Opretning af hj{lpefiler.« EOS
0x612…655 0340 PRINT »              14.  SCAN ........ S||ger p} tema og koordinater.« EOS
0x655…69b 0350 PRINT »              15.  KONVERT.GEOPLAN .Konverterer til geoplan coder.« EOS
0x69b…6dc 0360 PRINT »              16.  PARAM ....... Opretning af tegneparametre.« EOS
0x6dc…727 0370 PRINT »              17.  PREPARE ..... Sortering af reg.filer til tegnefiler.« EOS
0x727…766 0380 PRINT »              18.  PLOT.START.NAT Generering af tegnefiler.« EOS
0x766…7a3 0390 PRINT »              19.  PLOT. ....... Udtegning af tegnefiler.« EOS
0x7a3…7d7 0395 PRINT »              20.  EXIT .......  Exit STEREODIG.« EOS
0x7d7…7d9 0400 PRINT EOS
0x7d9…80b 0420 INPUT »                                 VELG NR. : « COMMA var(I%) EOS
0x80b…80d 0430 PRINT EOS
0x80d…83a 0440 ON var(I%) COMMA 0 var(B0x60) 4 »\x80\x04\x90\x04« 0 5 16 5 32 5 48 5 var(A0x05) var(B0x50) 5 var(B0x60) 5 »\x80\x05\x90\x05\x00« 6 16 6 32 6 48 6 var(A0x06) var(B0x50) 6 EOS
0x83a…83d 0450 GOTO var(B0x50) 0
0x83d…844 0460 CHAIN »DEF« EOS
0x844…84d 0470 CHAIN »INDAT« EOS
0x84d…856 0480 CHAIN »TRANS« EOS
0x856…861 0490 CHAIN »DIG.NEW« EOS
0x861…86a 0500 CHAIN »PRINT« EOS
0x86a…875 0510 CHAIN »DIG.AER« EOS
0x875…87e 0520 CHAIN »AKSER« EOS
0x87e…88a 0530 CHAIN »DIG.TEST« EOS
0x88a…895 0540 CHAIN »AFSTAND« EOS
0x895…8a3 0550 CHAIN »VEND.AKSER« EOS
0x8a3…8ae 0560 CHAIN »VEJPLAN« EOS
0x8ae…8bd 0570 CHAIN »DIG.KORREKS« EOS
0x8bd…8c6 0580 CHAIN »KOREG« EOS
0x8c6…8ce 0590 CHAIN »SCAN« EOS
0x8ce…8e1 0600 CHAIN »KONVERT.GEOPLAN« EOS
0x8e1…8ea 0610 CHAIN »PARAM« EOS
0x8ea…8f5 0620 CHAIN »PREPARE« EOS
0x8f5…907 0630 CHAIN »PLOT.START.NAT« EOS
0x907…90d 0640 CHAIN »TM« EOS
0x90d…918 0650 PRINT = ( 27 )  → af700145e2f3
0x918…91a 0660 PRINT EOS
0x91a…91c 0670 PRINT EOS
0x91c…939 0680 PRINT »           EXIT STERIODIG« EOS
0x939…93a 0700 END

Less…

Reduced view