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

File name: /tmp/phpxfgtWy (1042 bytes) Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpxfgtWy.out' 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.5 ©2012,2013 "LGB" Gábor Lénárt (lgb at-sign lgb dot hu)