epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: tests/TEST4.4TH (1042 bytes) Options: bin=None cset='UK' html='' info='' out='result-forth.html' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x1 [00 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-FORTH program
New forth buffer #1 (1 of 1) Used bytes: 829, (usefull) lines: 27
DECIMAL : GET_SCREEN_MEM ( -- addr ) 0 0 3 102 SPFUNC ( Special func Get Video Memory on chan 102 ) 0 <> ABORT" SPFUNC ERROR" ( EXOS error ) SWAP DROP ( Do not need value returned in C ) ; VARIABLE INK : TEST4 102 £GRAPHICS ( So PALETTE uses text chan ) GREEN INK ! GET_SCREEN_MEM ( Screen ptr on stack throughout ) 91 65 DO ( Letters A to Z ) DUP 960 0 DO ( One screenful ) DUP J SWAP 255 S! ( SPOKE letter { J }, assume seg is FF ! ) 1+ ( Next screen pos ) LOOP DROP 25 INK +! ( Next colour ) 0 0 0 0 0 0 ( Ready for PALETTE - unused colours ) INK @ 0 PALETTE ( Set new ink & background ) LOOP DROP ;
(Re-)defined forth words: 2
End of FILE parsing, because: No other EXOS header after IS-FORTH program



Enterprise-128 EXOS file analyzer, lister and disassembler v0.5.8 ©2012,2013 "LGB" Gábor Lénárt (lgb at-sign lgb dot hu)