izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1619 Commits
4 Branches
13MB
Tree: 532bcc7e78
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '532bcc7e78'
${ noResults }
collapseos/arch/z80/sms/blk/625

17 lines
696B
Raw Blame History 

  1. ( Routines for interacting with SMS controller ports.

  2.   Requires CPORT_MEM, CPORT_CTL, CPORT_D1 and CPORT_D2 to be

  3.   defined. CPORT_MEM is a 1 byte buffer for CPORT_CTL. The last

  4.   3 consts will usually be 0x3f, 0xdc, 0xdd. )

  5. ( mode -- set TR pin on mode a on:

  6. 0= output low 1=output high 2=input )

  7. CODE _TRA! HL POP, chkPS, ( B0 -> B4, B1 -> B0 )

  8.     L RR, RLA, RLA, RLA, RLA, L RR, RLA,

  9.     0x11 ANDi, L A LDrr, CPORT_MEM LDA(i),

  10.     0xee ANDi, L ORr, CPORT_CTL OUTiA, CPORT_MEM LD(i)A,

  11. ;CODE

  12. CODE _THA! HL POP, chkPS, ( B0 -> B5, B1 -> B1 )

  13.     L RR, RLA, RLA, RLA, RLA, L RR, RLA, RLA,

  14.     0x22 ANDi, L A LDrr, CPORT_MEM LDA(i),

  15.     0xdd ANDi, L ORr, CPORT_CTL OUTiA, CPORT_MEM LD(i)A,

  16. ;CODE