Browse Source

blkunpack: don't include trailing empty lines

This was becoming heavy to manage.
pull/128/head
Virgil Dupras 3 years ago
parent
commit
2d9a07d215
100 changed files with 0 additions and 582 deletions
  1. +0
    -3
      blk/001
  2. +0
    -14
      blk/004
  3. +0
    -5
      blk/005
  4. +0
    -2
      blk/006
  5. +0
    -10
      blk/009
  6. +0
    -7
      blk/011
  7. +0
    -1
      blk/017
  8. +0
    -8
      blk/020
  9. +0
    -3
      blk/021
  10. +0
    -10
      blk/022
  11. +0
    -5
      blk/023
  12. +0
    -4
      blk/030
  13. +0
    -7
      blk/032
  14. +0
    -13
      blk/035
  15. +0
    -11
      blk/038
  16. +0
    -11
      blk/044
  17. +0
    -10
      blk/047
  18. +0
    -7
      blk/048
  19. +0
    -6
      blk/051
  20. +0
    -6
      blk/052
  21. +0
    -4
      blk/056
  22. +0
    -9
      blk/058
  23. +0
    -7
      blk/062
  24. +0
    -10
      blk/070
  25. +0
    -5
      blk/071
  26. +0
    -10
      blk/076
  27. +0
    -4
      blk/078
  28. +0
    -2
      blk/084
  29. +0
    -10
      blk/086
  30. +0
    -6
      blk/090
  31. +0
    -14
      blk/102
  32. +0
    -2
      blk/105
  33. +0
    -6
      blk/106
  34. +0
    -3
      blk/107
  35. +0
    -4
      blk/108
  36. +0
    -11
      blk/109
  37. +0
    -6
      blk/110
  38. +0
    -3
      blk/111
  39. +0
    -1
      blk/123
  40. +0
    -6
      blk/124
  41. +0
    -13
      blk/125
  42. +0
    -2
      blk/126
  43. +0
    -6
      blk/127
  44. +0
    -4
      blk/128
  45. +0
    -4
      blk/129
  46. +0
    -3
      blk/131
  47. +0
    -1
      blk/150
  48. +0
    -13
      blk/152
  49. +0
    -7
      blk/153
  50. +0
    -7
      blk/154
  51. +0
    -11
      blk/155
  52. +0
    -14
      blk/158
  53. +0
    -3
      blk/200
  54. +0
    -13
      blk/206
  55. +0
    -5
      blk/209
  56. +0
    -15
      blk/212
  57. +0
    -8
      blk/213
  58. +0
    -5
      blk/216
  59. +0
    -7
      blk/217
  60. +0
    -4
      blk/218
  61. +0
    -2
      blk/219
  62. +0
    -1
      blk/220
  63. +0
    -2
      blk/222
  64. +0
    -3
      blk/223
  65. +0
    -7
      blk/224
  66. +0
    -2
      blk/226
  67. +0
    -6
      blk/228
  68. +0
    -3
      blk/230
  69. +0
    -1
      blk/232
  70. +0
    -3
      blk/234
  71. +0
    -5
      blk/236
  72. +0
    -5
      blk/238
  73. +0
    -5
      blk/240
  74. +0
    -2
      blk/242
  75. +0
    -2
      blk/243
  76. +0
    -8
      blk/247
  77. +0
    -4
      blk/249
  78. +0
    -7
      blk/261
  79. +0
    -15
      blk/262
  80. +0
    -1
      blk/263
  81. +0
    -2
      blk/264
  82. +0
    -2
      blk/265
  83. +0
    -6
      blk/270
  84. +0
    -4
      blk/281
  85. +0
    -10
      blk/282
  86. +0
    -1
      blk/285
  87. +0
    -4
      blk/288
  88. +0
    -1
      blk/291
  89. +0
    -8
      blk/292
  90. +0
    -1
      blk/293
  91. +0
    -10
      blk/296
  92. +0
    -3
      blk/297
  93. +0
    -10
      blk/298
  94. +0
    -1
      blk/302
  95. +0
    -3
      blk/303
  96. +0
    -4
      blk/305
  97. +0
    -1
      blk/306
  98. +0
    -8
      blk/308
  99. +0
    -7
      blk/309
  100. +0
    -1
      blk/310

+ 0
- 3
blk/001 View File

@@ -11,6 +11,3 @@ MASTER INDEX
620 Sega Master System Recipe
650 AVR assembler 730 8086 assembler
800 8086 boot code 830 PC/AT recipe




+ 0
- 14
blk/004 View File

@@ -1,16 +1,2 @@
21 How blocks are organized 22 Addressed devices
23 Branching















+ 0
- 5
blk/005 View File

@@ -9,8 +9,3 @@ are hexadecimals (example "0x12ef"), "0b" prefixes indicate
binary (example "0b1010"), char literals are single characters
surrounded by ' (example 'X'). Char literals can't be used for
whitespaces.






+ 0
- 2
blk/006 View File

@@ -12,5 +12,3 @@ writes that number as a literal, followed by a reference to
Example: ": foo [COMPILE] bar;" is the equivalent of ": foo bar
;" if bar is not an immediate. However, ": foo COMPILE bar ;"
is the equivalent of ": foo ['] bar , ;". Got it?



+ 0
- 10
blk/009 View File

@@ -4,13 +4,3 @@ prompt control to a RS-232 device instead of the keyboard.
Interpreter output is unbuffered and only has EMIT. This
word can also be overriden, mostly as a companion to the
raison d'etre of your KEY override.











+ 0
- 7
blk/011 View File

@@ -7,10 +7,3 @@ support the "-" prefix, but under the hood, it's all unsigned.
This leads to some oddities. For example, "-1 0 <" is false.
To compare whether something is negative, use the "0<" word
which is the equivalent to "0x7fff >".








+ 0
- 1
blk/017 View File

@@ -13,4 +13,3 @@ At compile time, colon definition stops processing words when
reaching the DOES>.

Example: ": CONSTANT CREATE HERE @ ! DOES> @ ;"


+ 0
- 8
blk/020 View File

@@ -6,11 +6,3 @@ Although the usage of absolute LOAD calls are minimally used
(relative LOADs are preferred), they are sometimes unavoidable.
When you span Collapse OS over multiple disks, don't forget to
adjust those absolute LOADs.









+ 0
- 3
blk/021 View File

@@ -11,6 +11,3 @@ try to strive towards a few goals:
4. B200-B500 are for bootstrapping
5. The rest is for recipes.
6. I'm not sure yet how I'll organize multiple arches.




+ 0
- 10
blk/022 View File

@@ -4,13 +4,3 @@ A@ and A! are the indirect versions of C@ and C!. Their target
word is controlled through A@* and A!* and by default point to
C@ and C*. There is also a AMOVE word that is the same as MOVE
but using A@ and A!.











+ 0
- 5
blk/023 View File

@@ -9,8 +9,3 @@ The reasoning behind this intentional limit is that huge
branches are generally a indicator that a logic ought to be
simplified. So here's one more constraint for you to help you
towards simplicity.






+ 0
- 4
blk/030 View File

@@ -10,7 +10,3 @@ and Extra words (B150).
52 Addressed devices 54 Arithmetic / Bits
56 Logic 58 Strings
60 I/O 64 Disk





+ 0
- 7
blk/032 View File

@@ -7,10 +7,3 @@ Words between "()" are "support words" that aren't really meant
to be used directly, but as part of another word.

"*I*" in description indicates an IMMEDIATE word.








+ 0
- 13
blk/035 View File

@@ -1,16 +1,3 @@
(cont.)
~ - Container for native code. Usually not an executable word.
? - Is it ...? (example: IMMED?)














+ 0
- 11
blk/038 View File

@@ -3,14 +3,3 @@ FORGET x -- Rewind the dictionary (both CURRENT and HERE)
up to x's previous entry.
PREV a -- a Return a wordref's previous entry.
WORD( a -- a Get wordref's beginning addr.












+ 0
- 11
blk/044 View File

@@ -3,14 +3,3 @@ INTERPRET -- Get a line from stdin, compile it in tmp memory,
then execute the compiled contents.
LEAVE -- In a DO..LOOP, exit at the next LOOP call.
QUIT -- Return to interpreter prompt immediately












+ 0
- 10
blk/047 View File

@@ -4,13 +4,3 @@ PICK Pick nth item from stack. "0 PICK" = DUP,
"1 PICK" = OVER.
ROLL Rotate PSP over n items. "1 ROLL" = SWAP,
"2 ROLL" = ROT. 0 is noop.











+ 0
- 7
blk/048 View File

@@ -7,10 +7,3 @@ R> R:n -- n Pops RS and push to PS
I -- n Copy RS TOS to PS
I' -- n Copy RS second item to PS
J -- n Copy RS third item to PS








+ 0
- 6
blk/051 View File

@@ -8,9 +8,3 @@ MOVE a1 a2 u -- Copy u bytes from a1 to a2, starting
MOVE- a1 a2 u -- Copy u bytes from a1 to a2, starting
with a1+u, going down.
MOVE, a u -- Copy u bytes from a to HERE.







+ 0
- 6
blk/052 View File

@@ -8,9 +8,3 @@ A! c a -- Indirect C!
A@* -- a Address for A@ word
A!* -- a Address for A! word
AMOVE src dst u -- Same as MOVE, but with A@ and A!







+ 0
- 4
blk/056 View File

@@ -10,7 +10,3 @@ CMP n1 n2 -- n Compare n1 and n2 and set n to -1, 0, or 1.
MIN a b -- n Returns the lowest of a and b
MAX a b -- n Returns the highest of a and b
NOT f -- f Push the logical opposite of f





+ 0
- 9
blk/058 View File

@@ -5,12 +5,3 @@ LIT -- Write a LIT entry. You're expected to write
LIT< x -- Read following word and write to HERE as a
string literal.
S= a1 a2 -- f Returns whether string a1 == a2.










+ 0
- 7
blk/062 View File

@@ -7,10 +7,3 @@ BS CR LF SPC CRLF
NL is an indirect word (see B80) that aliases to CRLF by
default and that should generally be used when we want to emit
a newline.








+ 0
- 10
blk/070 View File

@@ -4,13 +4,3 @@ Implementation notes
75 Stack management 77 Dictionary
80 System variables 85 Word types
89 Initialization sequence











+ 0
- 5
blk/071 View File

@@ -9,8 +9,3 @@ it. As a general rule, we go like this:
4. Is it a number?
5. If yes, push that number to PS, goto 1
6. Error: undefined word.






+ 0
- 10
blk/076 View File

@@ -4,13 +4,3 @@ prohibitive in terms of costs), PS_ADDR should be set to
at least 6 bytes before its actual limit. 6 bytes because we
seldom have words requiring more than 3 items from the stack.
Then, at each "exit" call we check for stack underflow.











+ 0
- 4
blk/078 View File

@@ -10,7 +10,3 @@ chain). There are also "special words", for example NUMBER,
LIT, FBR, that have a slightly different structure. They're
also a pointer to an executable, but as for the other fields,
the only one they have is the "flags" field.





+ 0
- 2
blk/084 View File

@@ -12,5 +12,3 @@ BLK* see B416.
FUTURE USES section is unused for now.

DRIVERS section is reserved for recipe-specific drivers.



+ 0
- 10
blk/086 View File

@@ -4,13 +4,3 @@ compiled. At that address is an atom list exactly like in a
compiled word. Upon execution, after having pushed its cell
addr to PSP, it executes its reference exactly like a
compiled word.











+ 0
- 6
blk/090 View File

@@ -8,9 +8,3 @@
In RAM-only environment, we will typically have a
"CURRENT @ HERE !" line during init to have HERE begin at the
end of the binary instead of RAMEND.







+ 0
- 14
blk/102 View File

@@ -1,16 +1,2 @@
X ( n -- ): Delete X chars after cursor and place in IBUF.
E: Run X with n = length of FBUF.















+ 0
- 2
blk/105 View File

@@ -12,5 +12,3 @@
ENDCASE
AGAIN
;



+ 0
- 6
blk/106 View File

@@ -8,9 +8,3 @@ CREATE ACC 0 ,
: L BLK> @ _LIST ;
: B BLK> @ 1- BLK@ L ;
: N BLK> @ 1+ BLK@ L ;







+ 0
- 3
blk/107 View File

@@ -11,6 +11,3 @@ CREATE FBUF 64 ALLOT0
EMIT
LOOP ( lno ) 1+ . ;
: _zbuf 64 0 FILL ; ( buf -- )




+ 0
- 4
blk/108 View File

@@ -10,7 +10,3 @@
: _mvln- ( ln -- move ln 1 line up )
DUP 14 > IF DROP 15 _lpos _zbuf
ELSE 1+ _lpos DUP 64 - 64 MOVE THEN ;





+ 0
- 11
blk/109 View File

@@ -3,14 +3,3 @@
14 I - _mvln+
LOOP ;
: U _U P ;












+ 0
- 6
blk/110 View File

@@ -8,9 +8,3 @@
UNTIL ( a1 a2 )
DUP BLK) < IF BLK( - FBUF + -^ EDPOS ! ELSE DROP THEN ;
: F FBUF _type _F EDPOS @ 64 / _pln ;







+ 0
- 3
blk/111 View File

@@ -11,6 +11,3 @@
ELSE DROP 1+ ( ilen becomes rbuffsize+1 ) THEN
DUP IBUF EDPOS @ _cpos ROT MOVE ( ilen ) EDPOS +! BLK!! ;
: I IBUF _type _I EDPOS @ 64 / _pln ;




+ 0
- 1
blk/123 View File

@@ -13,4 +13,3 @@
'D' deletes "modifier" lines at the cursor. The first of those
lines is copied to IBUF.
(cont.)


+ 0
- 6
blk/124 View File

@@ -8,9 +8,3 @@ be sure, then press 'E'.
'R' goes into replace mode at current cursor position.
Following keystrokes replace current character and advance
cursor. Press return to return to normal mode.







+ 0
- 13
blk/125 View File

@@ -1,16 +1,3 @@
'? UPPER NOT [IF] 33 LOAD+ [THEN] DROP ( B158 )
-20 LOAD+ ( B105, block editor )
1 6 LOADR+














+ 0
- 2
blk/126 View File

@@ -12,5 +12,3 @@ CREATE PREVPOS 0 , CREATE PREVBLK 0 ,
: contents 3 aty BLK> @ LIST 3 16 gutter ;
: selblk BLK> @ PREVBLK ! BLK@ contents ;
: mode! ( c -- ) 63 0 AT-XY ;



+ 0
- 6
blk/127 View File

@@ -8,9 +8,3 @@
DUP 0x20 < IF 2DROP DROP EXIT THEN
( buf ln c ) 63 nspcs SWAP 4 SWAP AT-XY ( buf c ) SWAP C!+
IN( _zbuf (rdln) IN( SWAP 63 MOVE ;







+ 0
- 4
blk/128 View File

@@ -10,7 +10,3 @@
: $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;
: $H EDPOS @ 0x3c0 AND pos! ;
: $L EDPOS @ 0x3f OR pos! ;





+ 0
- 4
blk/129 View File

@@ -10,7 +10,3 @@
: $B EDPOS @ BLK( + acc@ 0 DO
BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL LOOP
1+ BLK( - pos! ;





+ 0
- 3
blk/131 View File

@@ -11,6 +11,3 @@
clrscr 0 ACC ! 0 PREVPOS ! contents
BEGIN status bufs setpos KEY handle UNTIL
19 aty (infl) ;




+ 0
- 1
blk/150 View File

@@ -13,4 +13,3 @@ Some programs need them, so they will automatically LOAD them.
Because more than one program can use the same extra words,
conditional loaders are recommended. If you want to load all
words do "152 LOAD" which conditionally loads all extra words.


+ 0
- 13
blk/152 View File

@@ -1,16 +1,3 @@
'? CASE NOT [IF] 1 2 LOADR+ [THEN] DROP ( from '? )
'? FILL NOT [IF] 3 LOAD+ [THEN] DROP
'? WIPE NOT [IF] 5 LOAD+ [THEN] DROP














+ 0
- 7
blk/153 View File

@@ -7,10 +7,3 @@
[COMPILE] IF COMPILE DROP
; IMMEDIATE
: ENDOF [COMPILE] ELSE ; IMMEDIATE








+ 0
- 7
blk/154 View File

@@ -7,10 +7,3 @@
[COMPILE] THEN
AGAIN
; IMMEDIATE








+ 0
- 11
blk/155 View File

@@ -3,14 +3,3 @@
DUP I C!
LOOP DROP ;
: ALLOT0 ( n -- ) H@ OVER 0 FILL ALLOT ;












+ 0
- 14
blk/158 View File

@@ -1,16 +1,2 @@
: LOWER DUP 'A' 'Z' =><= IF 32 + THEN ;
: UPPER DUP 'a' 'z' =><= IF 32 - THEN ;















+ 0
- 3
blk/200 View File

@@ -11,6 +11,3 @@ Z80 Assembler
238 OP3ddnn 240 OP3nn
242 Specials 246 Flow
249 Macros




+ 0
- 13
blk/206 View File

@@ -1,16 +1,3 @@
On top of that, you have the very nice BREAK, instruction,
which must also be preceded by a JRxx, and will jump to the
PC following the next AGAIN,














+ 0
- 5
blk/209 View File

@@ -9,8 +9,3 @@ JR [, Z, NZ, C, NC]

DI EI EXDEHL EXX HALT
NOP RET RETI RETN SCF






+ 0
- 15
blk/212 View File

@@ -1,16 +1 @@
1 37 LOADR+
















+ 0
- 8
blk/213 View File

@@ -6,11 +6,3 @@ VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4
: BC 0 ; : DE 1 ; : HL 2 ; : AF 3 ; : SP AF ;
: CNZ 0 ; : CZ 1 ; : CNC 2 ; : CC 3 ;
: CPO 4 ; : CPE 5 ; : CP 6 ; : CM 7 ;









+ 0
- 5
blk/216 View File

@@ -9,8 +9,3 @@
0x17 OP1 RLA, 0x07 OP1 RLCA,
0x1f OP1 RRA, 0x0f OP1 RRCA,
0x37 OP1 SCF,






+ 0
- 7
blk/217 View File

@@ -7,10 +7,3 @@
0x18 OP1 JR, 0x10 OP1 DJNZ,
0x38 OP1 JRC, 0x30 OP1 JRNC,
0x28 OP1 JRZ, 0x20 OP1 JRNZ,








+ 0
- 4
blk/218 View File

@@ -10,7 +10,3 @@
0x04 OP1r INCr, 0x05 OP1r DECr,
: INC(IXY+), INCr, A, ;
: DEC(IXY+), DECr, A, ;





+ 0
- 2
blk/219 View File

@@ -12,5 +12,3 @@
0xb0 OP1r0 ORr, 0x90 OP1r0 SUBr,
0x98 OP1r0 SBCr, 0xa8 OP1r0 XORr,
: CP(IXY+), CPr, A, ;



+ 0
- 1
blk/220 View File

@@ -13,4 +13,3 @@

: ADDIXss, 0xdd A, ADDHLss, ; : ADDIXIX, HL ADDIXss, ;
: ADDIYss, 0xfd A, ADDHLss, ; : ADDIYIY, HL ADDIYss, ;


+ 0
- 2
blk/222 View File

@@ -12,5 +12,3 @@
_1rr
;
0x40 OP1rr LDrr,



+ 0
- 3
blk/223 View File

@@ -11,6 +11,3 @@
SWAP ( ixy+- rd HL )
LDIXYr,
;




+ 0
- 7
blk/224 View File

@@ -7,10 +7,3 @@
0xeda8 OP2 LDD, 0xedb8 OP2 LDDR,
0xed44 OP2 NEG,
0xed4d OP2 RETI, 0xed45 OP2 RETN,








+ 0
- 2
blk/226 View File

@@ -12,5 +12,3 @@
0xd6 OP2n SUBn,
0xee OP2n XORn,
0xfe OP2n CPn,



+ 0
- 6
blk/228 View File

@@ -8,9 +8,3 @@
OR A, A,
;
0x06 OP2rn LDrn,







+ 0
- 3
blk/230 View File

@@ -11,6 +11,3 @@
0xc0 OP2br SETbr,
0x80 OP2br RESbr,
0x40 OP2br BITbr,




+ 0
- 1
blk/232 View File

@@ -13,4 +13,3 @@
0x08 OProt RRCr,
0x20 OProt SLAr,
0x38 OProt SRLr,


+ 0
- 3
blk/234 View File

@@ -11,6 +11,3 @@
;
0xed41 OP2r OUT(C)r,
0xed40 OP2r INr(C),




+ 0
- 5
blk/236 View File

@@ -9,8 +9,3 @@
;
0x4a OP2ss ADCHLss,
0x42 OP2ss SBCHLss,






+ 0
- 5
blk/238 View File

@@ -9,8 +9,3 @@
A,,
;
0x01 OP3ddnn LDddnn,






+ 0
- 5
blk/240 View File

@@ -9,8 +9,3 @@
0xc3 OP3nn JPnn,
0x22 OP3nn LD(nn)HL,
0x2a OP3nn LDHL(nn),






+ 0
- 2
blk/242 View File

@@ -12,5 +12,3 @@

: JP(IX), IX DROP JP(HL), ;
: JP(IY), IY DROP JP(HL), ;



+ 0
- 2
blk/243 View File

@@ -10,5 +10,3 @@ CREATE lblnext 0x1a , ( stable ABI until set in B300 )
: CODE ( same as CREATE, but with native word )
(entry) 0 C, ( 0 == native ) ;
: ;CODE JPNEXT, ;



+ 0
- 8
blk/247 View File

@@ -6,11 +6,3 @@
THEN ;
: AGAIN, BREAK?, PC - 1- A, ;
: BWR @ AGAIN, ;









+ 0
- 4
blk/249 View File

@@ -10,7 +10,3 @@
: LDDE(HL), E (HL) LDrr, HL INCss, D (HL) LDrr, ;
: OUTHL, DUP A H LDrr, OUTnA, A L LDrr, OUTnA, ;
: OUTDE, DUP A D LDrr, OUTnA, A E LDrr, OUTnA, ;





+ 0
- 7
blk/261 View File

@@ -7,10 +7,3 @@ See example in /emul/xcomp.fs

Why limit ourselves to icore? Oh, I've tried cross-compiling
the whole shebang. I tried. And failed. Too dynamic.








+ 0
- 15
blk/262 View File

@@ -1,16 +1 @@
1 LOAD+ 3 LOAD+ 6 LOAD+
















+ 0
- 1
blk/263 View File

@@ -13,4 +13,3 @@ VARIABLE XCURRENT
XCON ' _xapply LITN
LIT< , FIND DROP _xapply , XCOFF ;
: X[COMPILE] XCON ' _xapply , XCOFF ;


+ 0
- 2
blk/264 View File

@@ -12,5 +12,3 @@ never supposed to encounter an immediate at this point.
If not found, we try the same word on system dict (RAM+02).
If found and is immediate, execute. If found and not immediate,
error. If not found, try number.



+ 0
- 2
blk/265 View File

@@ -12,5 +12,3 @@
THEN
AGAIN
;



+ 0
- 6
blk/270 View File

@@ -8,9 +8,3 @@
: : [ ' X: , ] ;

CURRENT @ XCURRENT !







+ 0
- 4
blk/281 View File

@@ -10,7 +10,3 @@ up until 0x67, the (?br) wordref, pretty much everything has
to stay put.

To assemble, run "282 LOAD".





+ 0
- 10
blk/282 View File

@@ -1,13 +1,3 @@
VARIABLE lblofl VARIABLE lblpushRS VARIABLE lblexec
VARIABLE lblfind
1 53 LOADR+











+ 0
- 1
blk/285 View File

@@ -13,4 +13,3 @@ CODE (loop) ( 0x80 )
A 1 IX+ LDrIXY, 1 IX- CP(IXY+), JRNZ, L2 BWR ( branch )
( don't branch )
IX DECss, IX DECss, IX DECss, IX DECss, JR, L1 BWR


+ 0
- 4
blk/288 View File

@@ -10,7 +10,3 @@ CODE 2R>
20 BCALL, ( 20 == popRS ) EXDEHL, 20 BCALL,
HL PUSHqq, DE PUSHqq,
;CODE





+ 0
- 1
blk/291 View File

@@ -13,4 +13,3 @@ lblfind BSET
C A LDrr, B 0 LDrn, ( C holds our length )
BC ADDHLss, HL INCss, ( HL points to after-last-char )
( cont . )


+ 0
- 8
blk/292 View File

@@ -6,11 +6,3 @@
LDA(DE),
0x7f ANDn, ( remove IMMEDIATE flag )
C CPr, ( cont. )









+ 0
- 1
blk/293 View File

@@ -13,4 +13,3 @@
DJNZ, AGAIN,
THEN,
( cont. )


+ 0
- 10
blk/296 View File

@@ -4,13 +4,3 @@
L2 FSET ( end )
HL POPqq,
RET,











+ 0
- 3
blk/297 View File

@@ -11,6 +11,3 @@ PC ORG @ 0x15 + ! ( popRS )
IX DECss,
IX DECss,
RET,




+ 0
- 10
blk/298 View File

@@ -1,13 +1,3 @@
lblofl BSET ( abortUnderflow )
DE BIN( @ 0x06 ( uflw ) + LDdd(nn),
JR, L2 FWR ( execute, B301 )











+ 0
- 1
blk/302 View File

@@ -11,4 +11,3 @@
HL INCss,
D (HL) LDrr,
( continue to compiledWord )


+ 0
- 3
blk/303 View File

@@ -10,6 +10,3 @@
HL INCss,
HL PUSHqq, IY POPqq, ( --> IP )
JR, lblexec BWR ( execute-B301 )




+ 0
- 4
blk/305 View File

@@ -10,7 +10,3 @@ lblchkPS BSET ( chkPS )
EXX,
CNC RETcc, ( PS_ADDR >= SP? good )
JR, lblofl BWR ( abortUnderflow-B298 )





+ 0
- 1
blk/306 View File

@@ -13,4 +13,3 @@ CODE ROT
chkPS,
DE PUSHqq, ( B ) HL PUSHqq, ( C ) BC PUSHqq, ( A )
;CODE


+ 0
- 8
blk/308 View File

@@ -6,11 +6,3 @@ CODE SWAP
HL PUSHqq, ( B )
DE PUSHqq, ( A )
;CODE









+ 0
- 7
blk/309 View File

@@ -7,10 +7,3 @@ CODE OVER
HL PUSHqq, ( B )
DE PUSHqq, ( A )
;CODE








+ 0
- 1
blk/310 View File

@@ -13,4 +13,3 @@ CODE PICK
CC lblofl @ JPccnn, ( abortUnderflow-B298 )
BC PUSHqq,
;CODE


Some files were not shown because too many files changed in this diff

Loading…
Cancel
Save