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

41 行
1.0KB

  1. ( 8K of onboard RAM )
  2. 0xdd00 CONSTANT RS_ADDR
  3. ( Memory register at the end of RAM. Must not overwrite )
  4. 0xddca CONSTANT PS_ADDR
  5. RS_ADDR 0x80 - CONSTANT SYSVARS
  6. 0xc000 CONSTANT HERESTART
  7. 0xbf CONSTANT VDP_CTLPORT
  8. 0xbe CONSTANT VDP_DATAPORT
  9. SYSVARS 0x70 + CONSTANT GRID_MEM
  10. SYSVARS 0x72 + CONSTANT CPORT_MEM
  11. 0x3f CONSTANT CPORT_CTL
  12. 0xdc CONSTANT CPORT_D1
  13. 0xdd CONSTANT CPORT_D2
  14. SYSVARS 0x73 + CONSTANT PAD_MEM
  15. 5 LOAD ( z80 assembler )
  16. : ZFILL, ( u ) 0 DO 0 A, LOOP ;
  17. 262 LOAD ( xcomp )
  18. 524 LOAD ( font compiler )
  19. 282 LOAD ( boot.z80.decl )
  20. 270 LOAD ( xcomp overrides )
  21. DI, 0x100 JP, 0x62 ZFILL, ( 0x66 )
  22. RETN, 0x98 ZFILL, ( 0x100 )
  23. ( All set, carry on! )
  24. CURRENT @ XCURRENT !
  25. 0x100 BIN( !
  26. 283 335 LOADR ( boot.z80 )
  27. 353 LOAD ( xcomp core low )
  28. CREATE ~FNT CPFNT7x7
  29. 603 608 LOADR ( VDP )
  30. 402 404 LOADR ( Grid )
  31. 625 626 LOADR ( SMS ports )
  32. 612 617 LOADR ( PAD )
  33. 390 LOAD ( xcomp core high )
  34. (entry) _
  35. ( Update LATEST )
  36. PC ORG @ 8 + !
  37. ," VDP$ 0 0 AT-XY PAD$ (im1) " EOT,
  38. ORG @ 0x100 - 256 /MOD 2 PC! 2 PC!
  39. H@ 256 /MOD 2 PC! 2 PC!