This website works better with JavaScript.
Home
Explore
lain.church
Help
Register
Sign In
izaya
/
collapseos
mirror of
https://github.com/hsoft/collapseos.git
Watch
1
Star
1
Fork
0
Code
Issues
0
Releases
0
Wiki
Activity
Browse Source
blkunpack: don't include trailing empty lines
This was becoming heavy to manage.
pull/128/head
Virgil Dupras
3 years ago
parent
49d7a7f435
commit
2d9a07d215
100 changed files
with
0 additions
and
582 deletions
Split View
Diff Options
Show Stats
Download Patch File
Download Diff File
+0
-3
blk/001
+0
-14
blk/004
+0
-5
blk/005
+0
-2
blk/006
+0
-10
blk/009
+0
-7
blk/011
+0
-1
blk/017
+0
-8
blk/020
+0
-3
blk/021
+0
-10
blk/022
+0
-5
blk/023
+0
-4
blk/030
+0
-7
blk/032
+0
-13
blk/035
+0
-11
blk/038
+0
-11
blk/044
+0
-10
blk/047
+0
-7
blk/048
+0
-6
blk/051
+0
-6
blk/052
+0
-4
blk/056
+0
-9
blk/058
+0
-7
blk/062
+0
-10
blk/070
+0
-5
blk/071
+0
-10
blk/076
+0
-4
blk/078
+0
-2
blk/084
+0
-10
blk/086
+0
-6
blk/090
+0
-14
blk/102
+0
-2
blk/105
+0
-6
blk/106
+0
-3
blk/107
+0
-4
blk/108
+0
-11
blk/109
+0
-6
blk/110
+0
-3
blk/111
+0
-1
blk/123
+0
-6
blk/124
+0
-13
blk/125
+0
-2
blk/126
+0
-6
blk/127
+0
-4
blk/128
+0
-4
blk/129
+0
-3
blk/131
+0
-1
blk/150
+0
-13
blk/152
+0
-7
blk/153
+0
-7
blk/154
+0
-11
blk/155
+0
-14
blk/158
+0
-3
blk/200
+0
-13
blk/206
+0
-5
blk/209
+0
-15
blk/212
+0
-8
blk/213
+0
-5
blk/216
+0
-7
blk/217
+0
-4
blk/218
+0
-2
blk/219
+0
-1
blk/220
+0
-2
blk/222
+0
-3
blk/223
+0
-7
blk/224
+0
-2
blk/226
+0
-6
blk/228
+0
-3
blk/230
+0
-1
blk/232
+0
-3
blk/234
+0
-5
blk/236
+0
-5
blk/238
+0
-5
blk/240
+0
-2
blk/242
+0
-2
blk/243
+0
-8
blk/247
+0
-4
blk/249
+0
-7
blk/261
+0
-15
blk/262
+0
-1
blk/263
+0
-2
blk/264
+0
-2
blk/265
+0
-6
blk/270
+0
-4
blk/281
+0
-10
blk/282
+0
-1
blk/285
+0
-4
blk/288
+0
-1
blk/291
+0
-8
blk/292
+0
-1
blk/293
+0
-10
blk/296
+0
-3
blk/297
+0
-10
blk/298
+0
-1
blk/302
+0
-3
blk/303
+0
-4
blk/305
+0
-1
blk/306
+0
-8
blk/308
+0
-7
blk/309
+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
Write
Preview
Loading…
Cancel
Save