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