|
DataMuseum.dkPresents historical artifacts from the history of: Zilog MCZ Floppy Disks |
This is an automatic "excavation" of a thematic subset of
Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 882 (0x372)
Notes: ZILOG_BASIC
Names: »DIG.TEST.BP«
└─⟦70e1b4124⟧ Bits:30006818 8" ZilogMCZ floppy NThun_0020 (21/5-82 MAPDAT AEROTRIANGULERING COPYRIGHT VIAK A/S)
└─ ⟦this⟧ »DIG.TEST.BP«
└─⟦84a75cdbc⟧ Bits:30006816 8" ZilogMCZ floppy NThun_0018 (Styrediskette Basic 3.0 Rio 2.2 Hjælpeprogrammer)
└─ ⟦this⟧ »DIG.TEST.BP«
0x000…014 BasicHead {variables=0x0050, stms=0x008c, f2=0x0282, f3=0000000000000000000000000000}
0x014…064 [
0x014…064 [0x00]: VarDef {f0=0x0910, f1=0x41, f2=0x24} E1% 0x13
0x014…064 [0x01]: VarDef {f0=0x0800, f1=0x41, f2=0x39} Z1% 0x12
0x014…064 [0x02]: VarDef {f0=0x0790, f1=0x41, f2=0x38} Y1% 0x11
0x014…064 [0x03]: VarDef {f0=0x0780, f1=0x41, f2=0x37} X1% 0x10
0x014…064 [0x04]: VarDef {f0=0x0770, f1=0x4f, f2=0x39} Z% 0xf
0x014…064 [0x05]: VarDef {f0=0x0760, f1=0x4f, f2=0x38} Y% 0xe
0x014…064 [0x06]: VarDef {f0=0x0750, f1=0x4f, f2=0x37} X% 0xd
0x014…064 [0x07]: VarDef {f0=0x0730, f1=0x4f, f2=0x20} A% 0xc
0x014…064 [0x08]: VarDef {f0=0x0660, f1=0x42, f2=0x2f} P2% 0xb
0x014…064 [0x09]: VarDef {f0=0x0640, f1=0x41, f2=0x2f} P1% 0xa
0x014…064 [0x0a]: VarDef {f0=0x0620, f1=0x4f, f2=0x24} E% 0x9
0x014…064 [0x0b]: VarDef {f0=0x0610, f1=0x4f, f2=0x19} Z 0x8
0x014…064 [0x0c]: VarDef {f0=0x0600, f1=0x4f, f2=0x18} Y 0x7
0x014…064 [0x0d]: VarDef {f0=0x0598, f1=0x4f, f2=0x17} X 0x6
0x014…064 [0x0e]: VarDef {f0=0x0530, f1=0x49, f2=0x20} A9% 0x5
0x014…064 [0x0f]: VarDef {f0=0x0470, f1=0x4f, f2=0x02} C 0x4
0x014…064 [0x10]: VarDef {f0=0x0430, f1=0x43, f2=0x22} C3% 0x3
0x014…064 [0x11]: VarDef {f0=0x0420, f1=0x42, f2=0x22} C2% 0x2
0x014…064 [0x12]: VarDef {f0=0x0410, f1=0x41, f2=0x22} C1% 0x1
0x014…064 [0x13]: VarDef {f0=0x0400, f1=0x5f, f2=0x22} FNC% 0x0
0x014…064 ]
0x064…068 Statement 33168 @0x370
0x068…06c Statement 33152 @0x35e
0x06c…070 Statement 33136 @0x33e
0x070…074 Statement 33120 @0x328
0x074…078 Statement 33104 @0x316
0x078…07c Statement 33088 @0x2f6
0x07c…080 Statement 33072 @0x2e0
0x080…084 Statement 33056 @0x2ce
0x084…088 Statement 33040 @0x2ae
0x088…08c Statement 33024 @0x298
0x08c…090 Statement 32848 @0x27c
0x090…094 Statement 32772 @0x277
0x094…098 Statement 32768 @0x249
0x098…09c Statement 04416 @0x246
0x09c…0a0 Statement 04400 @0x241
0x0a0…0a4 Statement 04384 @0x236
0x0a4…0a8 Statement 04368 @0x229
0x0a8…0ac Statement 04352 @0x21c
0x0ac…0b0 Statement 04240 @0x213
0x0b0…0b4 Statement 04224 @0x208
0x0b4…0b8 Statement 04208 @0x205
0x0b8…0bc Statement 04192 @0x1e9
0x0bc…0c0 Statement 04176 @0x1de
0x0c0…0c4 Statement 04160 @0x1b2
0x0c4…0c8 Statement 04144 @0x1a7
0x0c8…0cc Statement 04128 @0x182
0x0cc…0d0 Statement 04112 @0x15d
0x0d0…0d4 Statement 04096 @0x152
0x0d4…0d8 Statement 01152 @0x151
0x0d8…0dc Statement 01136 @0x14e
0x0dc…0e0 Statement 01088 @0x133
0x0e0…0e4 Statement 01072 @0x117
0x0e4…0e8 Statement 01056 @0x107
0x0e8…0ec Statement 01040 @0x101
0x0ec…0f0 Statement 01024 @0xf0
0x0f0…101 0400 REM ** OUTSCR **
0x101…107 0410 DEF var(FNC%) var(C1%) var(C2%) var(C3%) EOS
0x107…117 0420 IF var(C1%) 1 EQ COMMA 15 = ( 27 ) → af700145e2f3
0x117…133 0430 PRINT = ( 27 ) → af700146e2f271731f43e274aff271731f44e274aff2f3
0x133…14e 0440 IF var(C1%) 3 EQ var(C1%) 4 EQ OR COMMA 15 = ( 27 ) → aff271736f4e0042e374aff2f3
0x14e…151 0470 RETURN 0 EOS
0x151…152 0480 FNEND
0x152…15d 1000 LET var(A9%) COMMA = ( 1 1 1 ) var(FNC%) EOS
0x15d…182 1010 PRINT » TEST AV DIGITALISERING « EOS
0x182…1a7 1020 PRINT » ====================== « EOS
0x1a7…1b2 1030 LET var(A9%) COMMA = ( 2 10 5 ) var(FNC%) EOS
0x1b2…1de 1040 PRINT » X Y Z E« EOS
0x1de…1e9 1050 LET var(A9%) COMMA = ( 2 15 5 ) var(FNC%) EOS
0x1e9…205 1060 PRINT » PED1 PED2« EOS
0x205…208 1070 GOSUB 0 → 80
0x208…213 1080 LET var(A9%) COMMA = ( 2 11 5 ) var(FNC%) EOS
0x213…21c 1090 PRINT var(X) COMMA var(Y) COMMA var(Z) COMMA var(E%) EOS
0x21c…229 1100 1d7005504544414cf101f24bf3
0x229…236 1110 1d7005504544414cf102f24cf3
0x236…241 1120 LET var(A9%) COMMA = ( 2 16 5 ) var(FNC%) EOS
0x241…246 1130 PRINT var(P1%) COMMA var(P2%) EOS
0x246…249 1140 GOTO »\x0bp+ ** SUBROUTIN«
0x249…277 8000 REM ** SUBROUTINE TO READ FROM COUNTCART ***
0x277…27c 8004 LET var(A%) COMMA 3 EOS
0x27c…298 8050 1d700654454c4c4552f14df24ef14ff150f14af151f152f153f154f3
0x298…2ae 8100 IF var(X1%) %128 > COMMA 27 var(X1%) COMMA var(X1%) 256 SUB2 EOS
0x2ae…2ce 8110 IF var(X%) 0 ?< COMMA 27 var(X) COMMA var(X1%) 65534 MULT 65534 PLUS var(X%) PLUS EOS
0x2ce…2e0 8120 ELSE 27 var(X) COMMA var(X1%) 65534 MULT var(X%) PLUS EOS
0x2e0…2f6 8130 IF var(Y1%) %128 > COMMA 27 var(Y1%) COMMA var(Y1%) 256 SUB2 EOS
0x2f6…316 8140 IF var(Y%) 0 ?< COMMA 27 var(Y) COMMA var(Y1%) 65534 MULT 65534 PLUS var(Y%) PLUS EOS
0x316…328 8150 ELSE 27 var(Y) COMMA var(Y1%) 65534 MULT var(Y%) PLUS EOS
0x328…33e 8160 IF var(Z1%) %128 > COMMA 27 var(Z1%) COMMA var(Z1%) 256 SUB2 EOS
0x33e…35e 8170 IF var(Z%) 0 ?< COMMA 27 var(Z) COMMA var(Z1%) 65534 MULT 65534 PLUS var(Z%) PLUS EOS
0x35e…370 8180 ELSE 27 var(Z) COMMA var(Z1%) 65534 MULT var(Z%) PLUS EOS
0x370…372 8190 RETURN EOS