commit eb07557

zzo38  ·  2022-11-21 21:18:37 +0000 UTC
parent 6b0e407 
Correction of some mistakes in unlump.tal
1 files changed,  +13, -10
M prg/unlump.tal
M prg/unlump.tal
+13, -10 
 1@@ -21,12 +21,23 @@
 2   ], JMP
 3 
 4 @end-name
 5-  #00 STHr STZ
 6+  STHr STZ
 7   #0a18 DEO
 8   #0000 #b8 DEO2
 9 
10+\\ Lump data size
11+  #ac DEI2k ( Great )
12+  ROT DEI2 ( Small )
13+
14+\\ Small units
15+  DUP #80 LTH [, JCN
16+    #8000 ,copy JSR
17+    #7f AND
18+  ]@
19+  SWP ,copy JSR
20+
21 \\ Big units
22-  #ac DEI2 SWP
23+  SWP
24   ORAk #00 EQU [, JCN
25     [@
26       #8000 ,copy JSR
27@@ -35,14 +46,6 @@
28     ORAk ], JCN
29   ]@ POP2
30 
31-\\ Small units
32-  #ac DEI2
33-  DUP #80 LTH [, JCN
34-    #8000 ,copy JSR
35-    #7f AND
36-  ]@
37-  SWP ,copy JSR
38-
39 ,next-lump JMP
40 
41 @copy