Mirror of CollapseOS
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。

38 行
939B

  1. ( 8K of onboard RAM )
  2. 0xc000 CONSTANT RAMSTART
  3. 0xdd00 CONSTANT RS_ADDR
  4. ( Memory register at the end of RAM. Must not overwrite )
  5. 0xddca CONSTANT PS_ADDR
  6. RAMSTART 0x70 + CONSTANT VDP_MEM
  7. 0xbf CONSTANT VDP_CTLPORT
  8. 0xbe CONSTANT VDP_DATAPORT
  9. 32 CONSTANT VDP_COLS
  10. 24 CONSTANT VDP_ROWS
  11. RAMSTART 0x72 + CONSTANT PAD_MEM
  12. 0x3f CONSTANT PAD_CTLPORT
  13. 0xdc CONSTANT PAD_D1PORT
  14. 212 LOAD ( z80 assembler )
  15. : ZFILL, ( u ) 0 DO 0 A, LOOP ;
  16. 262 LOAD ( xcomp )
  17. 524 LOAD ( font compiler )
  18. 282 LOAD ( boot.z80.decl )
  19. 270 LOAD ( xcomp overrides )
  20. 0x100 JPnn, 0x63 ZFILL, ( 0x66 )
  21. RETN, 0x98 ZFILL, ( 0x100 )
  22. ( All set, carry on! )
  23. CURRENT @ XCURRENT !
  24. 0x100 BIN( !
  25. 283 335 LOADR ( boot.z80 )
  26. 353 LOAD ( xcomp core low )
  27. CREATE ~FNT CPFNT7x7
  28. 623 628 LOADR ( VDP )
  29. 632 637 LOADR ( PAD )
  30. 380 LOAD ( xcomp core high )
  31. (entry) _
  32. ( Update LATEST )
  33. PC ORG @ 8 + !
  34. ," VDP$ PAD$ " EOT,
  35. ORG @ 0x100 - 256 /MOD 2 PC! 2 PC!
  36. H@ 256 /MOD 2 PC! 2 PC!