123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 |
- RAMCodeStart:
- _:
- readbyte = -_-RAMCodeStart+ramCode
- ld c,6
- in b,(c)
- out (6),a
- ld d,(hl)
- inc l
- call z,IncHLMem1
- out (c),b
- ret
- _:
- IncHLMem1 = -_-RAMCodeStart+ramCode
- inc h
- ret po
- ld h,a
- in a,(6)
- inc a
- out (6),a
- ld a,h
- ld h,40h
- ret
- _:
- next_page_call = -_-RAMCodeStart+ramCode
- ;121cc
- push af
- in a,(6)
- dec a
- out (6),a
- pop af
- next_page_call_address = $-RAMCodeStart+ramCode+1
- call 0
- push af
- in a,(6)
- inc a
- out (6),a
- pop af
- ret
- _:
- prev_page_call = -_-RAMCodeStart+ramCode
- ;121cc
- push af
- in a,(6)
- inc a
- out (6),a
- pop af
- prev_page_call_address = $-RAMCodeStart+ramCode+1
- call 0
- push af
- in a,(6)
- dec a
- out (6),a
- pop af
- ret
- _:
- bincompare = -_-RAMCodeStart+ramCode
- ld de,(parsePtr)
- out (6),a
- .db $FE ;start of cp *
- _:
- inc de
- ld a,(de)
- cp (hl)
- jr nz,+_
- call isEOT
- jr z,+_
- inc l \ call z,incHLMem1
- ld a,(hl)
- or a
- jr nz,-_
- _:
- in a,(6)
- ld b,a
- ; push af
- _:
- bincomparepagerestore = -_-RAMCodeStart+ramCode+1
- ld a,0
- out (6),a
- ; pop af
- ld a,b
- ret
- isEOT = $-RAMCodeStart+ramCode
- ;End Of Token includes (, ' ', {, [, \n, :
- or a \ ret z
- cp $10 \ ret z ;(
- cp $29 \ ret ;space
- #ifdef include_interrupt
- .fill $8181-$+RAMCodeStart-ramCode,0
- interrupt_main = $-RAMCodeStart+ramCode
- push af
- in a,(6)
- ld (interrupt_return_page),a
- interrupt_page = $-RAMCodeStart+ramCode+1
- ld a,0
- out (6),a
- call Interrupt
- interrupt_return_page = $-RAMCodeStart+ramCode+1
- ld a,0
- out (6),a
- pop af
- ret
- #endif
- RamCodeEnd:
|