Mirror of CollapseOS
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

43 rindas
1.2KB

  1. ( xcomp using the Text Mode if the VDP. Only works on actual
  2. SMS. The Megadrive's VDP doesn't have TMS9918 modes in it. )
  3. ( 8K of onboard RAM )
  4. 0xdd00 CONSTANT RS_ADDR
  5. ( Memory register at the end of RAM. Must not overwrite )
  6. 0xddca CONSTANT PS_ADDR
  7. RS_ADDR 0x80 - CONSTANT SYSVARS
  8. 0xc000 CONSTANT HERESTART
  9. 0xbf CONSTANT TMS_CTLPORT
  10. 0xbe CONSTANT TMS_DATAPORT
  11. SYSVARS 0x70 + CONSTANT GRID_MEM
  12. SYSVARS 0x72 + CONSTANT CPORT_MEM
  13. 0x3f CONSTANT CPORT_CTL
  14. 0xdc CONSTANT CPORT_D1
  15. 0xdd CONSTANT CPORT_D2
  16. SYSVARS 0x73 + CONSTANT PS2_MEM
  17. 5 LOAD ( z80 assembler )
  18. : ZFILL, ( u ) 0 DO 0 A, LOOP ;
  19. 262 LOAD ( xcomp )
  20. 523 LOAD ( font compiler )
  21. 282 LOAD ( boot.z80.decl )
  22. 270 LOAD ( xcomp overrides )
  23. DI, 0x100 JP, 0x62 ZFILL, ( 0x66 )
  24. RETN, 0x98 ZFILL, ( 0x100 )
  25. ( All set, carry on! )
  26. CURRENT @ XCURRENT !
  27. 0x100 BIN( !
  28. 283 335 LOADR ( boot.z80 )
  29. 353 LOAD ( xcomp core low )
  30. CREATE ~FNT CPFNT5x7
  31. 470 472 LOADR ( VDP )
  32. 402 404 LOADR ( Grid )
  33. 625 626 LOADR ( SMS ports )
  34. 620 LOAD ( PAD ) : (ps2kc) (ps2kcA) ; 411 414 LOADR
  35. 390 LOAD ( xcomp core high )
  36. (entry) _
  37. ( Update LATEST )
  38. PC ORG @ 8 + !
  39. ," TMS$ 0 0 AT-XY PS2$ (im1) " EOT,
  40. ORG @ 0x100 - 256 /MOD 2 PC! 2 PC!
  41. H@ 256 /MOD 2 PC! 2 PC!