mirror of https://github.com/wwarthen/RomWBW.git
b1ackmai1er
5 years ago
7 changed files with 863 additions and 352 deletions
@ -0,0 +1,132 @@ |
|||||
|
;================================================================================================== |
||||
|
; GENERIC CP/M ROUTINES |
||||
|
;================================================================================================== |
||||
|
; |
||||
|
BDOS .EQU 5 ;ENTRY BDOS |
||||
|
BS .EQU 8 ;BACKSPACE |
||||
|
TAB .EQU 9 ;TABULATOR |
||||
|
LF .EQU 0AH ;LINE-FEED |
||||
|
CR .EQU 0DH ;CARRIAGE-RETURN |
||||
|
; |
||||
|
CLIARGS .EQU $81 |
||||
|
RESTART .EQU $0000 ; CP/M restart vector |
||||
|
FCB .EQU $5C ; Location of default FCB |
||||
|
; |
||||
|
; OUTPUT TEXT AT HL |
||||
|
; |
||||
|
PRTSTR: LD A,(HL) |
||||
|
CP '$' |
||||
|
RET Z |
||||
|
CALL COUT |
||||
|
INC HL |
||||
|
JR PRTSTR |
||||
|
; |
||||
|
;Output WORD |
||||
|
;*********** |
||||
|
; |
||||
|
;PARAMETER: Entry WORD IN HL |
||||
|
;********* |
||||
|
; |
||||
|
OUTW: LD A,H |
||||
|
CALL OUTB |
||||
|
LD A,L |
||||
|
CALL OUTB |
||||
|
RET |
||||
|
; |
||||
|
;Output BYTE |
||||
|
;*********** |
||||
|
; |
||||
|
;PARAMETER: Entry BYTE IN A |
||||
|
;********* |
||||
|
; |
||||
|
OUTB: PUSH AF |
||||
|
RRCA |
||||
|
RRCA |
||||
|
RRCA |
||||
|
RRCA |
||||
|
AND 0FH |
||||
|
CALL HBTHE ;Change Half-BYTE |
||||
|
POP AF |
||||
|
AND 0FH |
||||
|
CALL HBTHE |
||||
|
RET |
||||
|
; |
||||
|
;Output HALF-BYTE |
||||
|
;**************** |
||||
|
; |
||||
|
;PARAMETER: Entry Half-BYTE IN A (BIT 0 - 3) |
||||
|
;********* |
||||
|
; |
||||
|
HBTHE: CP 0AH |
||||
|
JR C,HBTHE1 |
||||
|
ADD A,7 ;Character to Letter |
||||
|
HBTHE1: ADD A,30H |
||||
|
LD E,A |
||||
|
CALL PCHAR |
||||
|
RET |
||||
|
; |
||||
|
; |
||||
|
;Output on Screen |
||||
|
;**************** |
||||
|
; |
||||
|
PRBS: LD E,BS |
||||
|
CALL PCHAR |
||||
|
RET |
||||
|
; |
||||
|
;Output CR+LF on Screen |
||||
|
;********************** |
||||
|
; |
||||
|
NEWLINE: |
||||
|
LD E,CR |
||||
|
CALL PCHAR |
||||
|
LD E,LF |
||||
|
CALL PCHAR |
||||
|
RET |
||||
|
; |
||||
|
;Output ASCII-Character |
||||
|
;********************** |
||||
|
; |
||||
|
COUT: PUSH AF |
||||
|
LD E,A |
||||
|
CALL PCHAR |
||||
|
POP AF |
||||
|
RET |
||||
|
; |
||||
|
;CALL BDOS with Register Save |
||||
|
;**************************** |
||||
|
; |
||||
|
INCHA: LD C,1 ;INPUT CHARACTER TO A |
||||
|
JR BDO |
||||
|
PCHAR: LD C,2 ;PRINT CHARACTER IN E |
||||
|
JR BDO |
||||
|
PSTRIN: LD C,9 ;PRINT STRING |
||||
|
JR BDO |
||||
|
INBUFF: LD C,10 ;READ CONSOLE-BUFFER |
||||
|
JR BDO |
||||
|
CSTS: LD C,11 ;CONSOLE-STATUS |
||||
|
JR BDO |
||||
|
OPEN: LD C,15 ;OPEN FILE |
||||
|
JR BDO |
||||
|
CLOSE: LD C,16 ;CLOSE FILE |
||||
|
JR BDO |
||||
|
DELETE: LD C,19 ;DELETE FILE |
||||
|
JR BDO |
||||
|
READS: LD C,20 ;READ SEEK |
||||
|
JR BDO |
||||
|
WRITES: LD C,21 ;WRITE SEEK |
||||
|
JR BDO |
||||
|
MAKE: LD C,22 ;MAKE FILE |
||||
|
JR BDO |
||||
|
SETDMA: LD C,26 ;SET DMA-ADDRESS |
||||
|
BDO: PUSH HL |
||||
|
PUSH DE |
||||
|
PUSH BC |
||||
|
PUSH IX |
||||
|
PUSH IY |
||||
|
CALL BDOS |
||||
|
POP IY |
||||
|
POP IX |
||||
|
POP BC |
||||
|
POP DE |
||||
|
POP HL |
||||
|
RET |
||||
@ -0,0 +1,517 @@ |
|||||
|
;================================================================================================== |
||||
|
; PCF8584 HD44780 I2C LCD UTILITY |
||||
|
; |
||||
|
; SOME GENERAL INFORMATION ON LCDS CAN BE SEEN HERE : FOCUSLCDS.COM/PRODUCT-CATEGORY/CHARACTER-LCD/ |
||||
|
; |
||||
|
;================================================================================================== |
||||
|
; |
||||
|
.ECHO "i2clcd\n" |
||||
|
; |
||||
|
#INCLUDE "pcfi2c.inc" |
||||
|
; |
||||
|
; LCD COMMANDS |
||||
|
; |
||||
|
LCDFSET .EQU 00100000B ; 20H |
||||
|
LCD4BIT .EQU 00000000B ; 00H |
||||
|
LCD2LIN .EQU 00001000B ; 08H |
||||
|
LCDDON .EQU 00000100B ; 04H |
||||
|
LCDDMOV .EQU 00001000B ; 07H |
||||
|
LCDSGRA .EQU 01000000B ; 04H |
||||
|
LCDSDRA .EQU 10000000B ; 80H |
||||
|
LCDEMS .EQU 00000100B ; 04H |
||||
|
LCDELFT .EQU 00000010B ; 03H |
||||
|
; |
||||
|
LCDPINE .EQU 00000100B ; PIN 2 |
||||
|
LCDPIND .EQU 00000001B ; PIN O |
||||
|
; |
||||
|
; |
||||
|
; STANDARD FORMATS - 8X1, 8X2, 16X1, 16X2, 16X4, 20X1, 20X2, 20X4, 24X2, 40X1, 40X2, 40X4 |
||||
|
; |
||||
|
TIMEOUT .EQU 255 |
||||
|
|
||||
|
.ORG 100H |
||||
|
|
||||
|
;INIT: CALL PCF_INIT |
||||
|
; |
||||
|
LD A,0 |
||||
|
LD (DEBUGF),A |
||||
|
; |
||||
|
CALL LCDINIT ; SETUP THE LCD THROUGH THE PCF8574 |
||||
|
|
||||
|
LD HL,LCDDATA ; DISPLAY TEXT AT HL |
||||
|
PUSH HL |
||||
|
CALL LCDSTR |
||||
|
POP HL |
||||
|
|
||||
|
CALL STOP ; CLOSE I2C CONNECTION |
||||
|
; |
||||
|
RET |
||||
|
|
||||
|
;----------------------------------------------------------------------------- |
||||
|
; |
||||
|
LCDLITE .DB 00001000B |
||||
|
; |
||||
|
LCDINIT: |
||||
|
; CALL DEBUG |
||||
|
; |
||||
|
LD A,I2CLCDW ; SET SLAVE ADDRESS |
||||
|
OUT (REGS0),A |
||||
|
; |
||||
|
LD A,0C5H ; GENERATE START CONDITION |
||||
|
OUT (REGS1),A ; AND ISSUE THE SLAVE ADDRESS |
||||
|
CALL CHKPIN |
||||
|
; |
||||
|
; CALL DEBUG |
||||
|
; |
||||
|
LD HL,LCDINIT1 |
||||
|
LD B,2 |
||||
|
CALL WLN |
||||
|
; |
||||
|
CALL DELAY |
||||
|
; |
||||
|
LD HL,LCDINIT2 |
||||
|
LD B,2 |
||||
|
CALL WLN |
||||
|
; |
||||
|
CALL DELAY |
||||
|
; |
||||
|
; NOW WE ARE IN 4 BIT MODE |
||||
|
; |
||||
|
LD A,+(LCDFSET | LCD4BIT | LCD2LIN) |
||||
|
CALL LCDCMD |
||||
|
LD A,+(LCDDON | LCDDMOV) |
||||
|
CALL LCDCMD |
||||
|
LD A,+(LCDEMS | LCDELFT) |
||||
|
CALL LCDCMD |
||||
|
LD A,LCDSDRA |
||||
|
CALL LCDCMD |
||||
|
; |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
; |
||||
|
WLN: LD A,(HL) |
||||
|
OUT (REGS0),A ; PUT DATA ON BUS |
||||
|
CALL CHKPIN |
||||
|
INC HL |
||||
|
DJNZ WLN |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
; DISPLAY STRING AT HL, TERMINATED BY 0 |
||||
|
; |
||||
|
LCDSTR: POP BC ; GET THE POINTER OF |
||||
|
POP HL ; THE TEXT TO DISPLAY |
||||
|
PUSH HL ; OFF THE STACK AND |
||||
|
PUSH BC ; PUT IT IN HL. |
||||
|
; |
||||
|
LCDST0: LD A,(HL) ; GET NEXT CHARACTER TO |
||||
|
OR A ; DISPLAY BUT RETURN |
||||
|
RET Z ; WHEN TERMINATOR REACHED |
||||
|
PUSH HL |
||||
|
; |
||||
|
CALL LCDATA ; OUTPUT TO LCD |
||||
|
POP HL |
||||
|
; RET C ; POINT TO NEXT |
||||
|
INC HL ; AND REPEAT |
||||
|
JR LCDST0 |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
; SEND BYTE IN A TO LCD IN 4-BIT MODE |
||||
|
; |
||||
|
LCDATA: PUSH DE |
||||
|
LD D,A |
||||
|
LD A,(LCDLITE) |
||||
|
OR +(LCDPINE | LCDPIND) |
||||
|
JP LCDSND |
||||
|
LCDCMD: PUSH DE |
||||
|
LD D,A |
||||
|
LD A,(LCDLITE) |
||||
|
OR LCDPINE |
||||
|
LCDSND: LD E,A |
||||
|
LD A,D |
||||
|
PUSH BC |
||||
|
LD C,11110000B |
||||
|
AND C |
||||
|
OR E |
||||
|
LD (LCDBUF),A |
||||
|
AND ~LCDPINE |
||||
|
LD (LCDBUF+1),A |
||||
|
LD A,D |
||||
|
RLC A |
||||
|
RLC A |
||||
|
RLC A |
||||
|
RLC A |
||||
|
AND C |
||||
|
OR E |
||||
|
LD (LCDBUF+2),A |
||||
|
AND ~LCDPINE |
||||
|
LD (LCDBUF+3),A |
||||
|
; |
||||
|
LD HL,LCDBUF ; OUTPUT 1 BYTE WHICH |
||||
|
LD B,4 ; REQUIRES A FOUR |
||||
|
CALL WLN ; BYTE SEQUENCE |
||||
|
; |
||||
|
POP BC |
||||
|
POP DE |
||||
|
RET |
||||
|
; |
||||
|
LCDDATA: |
||||
|
.DB "TEST HOW BIG IS THIS LINE DOES IT WRAP",0 |
||||
|
; |
||||
|
LCDINIT1: |
||||
|
.DB 00110100B |
||||
|
.DB 00011000B |
||||
|
; |
||||
|
LCDINIT2: |
||||
|
.DB 00100100B |
||||
|
.DB 00100000B |
||||
|
; |
||||
|
LCDBUF: |
||||
|
.DB 0, 0, 0, 0 ; BUFFER TO HOLD 4 BYTE SEQUENCE |
||||
|
|
||||
|
; FLASH DEVICE READ |
||||
|
; |
||||
|
|
||||
|
DEVMADR .EQU 0 |
||||
|
|
||||
|
READR: LD B,255 |
||||
|
DLY1: DJNZ DLY1 |
||||
|
; |
||||
|
LD A,D ; SET SLAVE ADDRESS |
||||
|
OUT (REGS0),A |
||||
|
; |
||||
|
LD A,0C5H ; GENERATE START CONDITION |
||||
|
OUT (REGS1),A ; AND ISSUE THE SLAVE ADDRESS |
||||
|
CALL CHKPIN |
||||
|
; |
||||
|
LD A,+(DEVMADR/256) |
||||
|
OUT (REGS0),A ; PUT ADDRESS MSB ON BUS |
||||
|
CALL CHKPIN |
||||
|
; |
||||
|
LD A,+(DEVMADR&$00FF) |
||||
|
OUT (REGS0),A ; PUT ADDRESS LSB ON BUS |
||||
|
CALL CHKPIN |
||||
|
; |
||||
|
LD A,045H ; START |
||||
|
OUT (REGS1),A |
||||
|
; |
||||
|
LD A,E ; ISSUE CONTROL BYTE + READ |
||||
|
OUT (REGS0),A |
||||
|
; |
||||
|
CALL READI2C ; DUMMY READ |
||||
|
JR NZ,ERREXT |
||||
|
; |
||||
|
READLP1:CALL READI2C |
||||
|
; JR Z,ERREXT |
||||
|
CP 1AH |
||||
|
PUSH AF |
||||
|
CALL COUT |
||||
|
POP AF |
||||
|
JR NZ,READLP1 |
||||
|
; |
||||
|
LD A,PCF_ES0 |
||||
|
OUT (REGS1),A |
||||
|
CALL CHKPIN |
||||
|
IN A,(REGS0) |
||||
|
CALL READI2C |
||||
|
CALL STOP |
||||
|
; |
||||
|
CALL NEWLINE |
||||
|
; |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
;----------------------------------------------------------------------------- |
||||
|
RESET: LD A,0C2H ; STOP |
||||
|
OUT (REGS1),A |
||||
|
LD B,255 |
||||
|
DLY2: DJNZ DLY2 |
||||
|
LD A,0C1H |
||||
|
OUT (REGS1),A |
||||
|
RET |
||||
|
|
||||
|
|
||||
|
RDSTAT: LD BC,-1 |
||||
|
STATLP: IN A,(REGS1) |
||||
|
AND 1 |
||||
|
RET Z |
||||
|
LD A,B |
||||
|
OR C |
||||
|
DEC BC |
||||
|
JR NZ,STATLP |
||||
|
LD A,'T' |
||||
|
JP ERREXTT |
||||
|
; |
||||
|
ERREXT: LD A,'Q' |
||||
|
JR ERR |
||||
|
|
||||
|
ERREXTT: POP HL |
||||
|
ERR: CALL COUT |
||||
|
CALL STOP |
||||
|
CALL RESET |
||||
|
RET |
||||
|
; |
||||
|
STOP: LD A,0C3H |
||||
|
OUT (REGS1),A |
||||
|
RET |
||||
|
; |
||||
|
DELAY: PUSH HL |
||||
|
LD HL,-1 |
||||
|
DLOOP: LD A,H |
||||
|
OR L |
||||
|
DEC HL |
||||
|
JR NZ,DLOOP |
||||
|
POP HL |
||||
|
RET |
||||
|
; |
||||
|
CHKPIN: IN A,(REGS1) ; POLL FOR |
||||
|
BIT 7,A ; TRANSMISSION |
||||
|
JP NZ,CHKPIN ; TO FINISH |
||||
|
|
||||
|
; IN A,(REGS1) ; CHECK FOR |
||||
|
BIT 3,A ; SLAVE |
||||
|
RET Z ; ACKNOWLEDGMENT |
||||
|
LD A,'A' |
||||
|
JP ERREXTT |
||||
|
; |
||||
|
; READ ONE BYTE FROM I2C |
||||
|
; RETURNS DATA IN A |
||||
|
; Z flag set is acknowledge received (correct operation) |
||||
|
; |
||||
|
READI2C: |
||||
|
IN A,(REGS1) ; READ S1 REGISTER |
||||
|
BIT 7,A ; CHECK PIN STATUS |
||||
|
JP NZ,READI2C |
||||
|
BIT 3,A ; CHECK LRB=0 |
||||
|
RET NZ |
||||
|
IN A,(REGS0) ; GET DATA |
||||
|
RET |
||||
|
; |
||||
|
DEBUG: PUSH AF |
||||
|
PUSH DE |
||||
|
LD A,'[' |
||||
|
CALL COUT |
||||
|
LD HL,DEBUGF |
||||
|
LD A,(HL) |
||||
|
INC (HL) |
||||
|
CALL HBTHE |
||||
|
LD A,']' |
||||
|
CALL COUT |
||||
|
POP DE |
||||
|
POP AF |
||||
|
RET |
||||
|
DEBUGF: .DB 00H |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
; |
||||
|
; LINUX DRIVER BASED CODE |
||||
|
; |
||||
|
; I2C_INB = IN A,(REGS0) |
||||
|
; I2C_OUTB = LD A,* | OUT (REGS0),A |
||||
|
; SET_PCF = LD A,* | OUT (REGS1),A |
||||
|
; GET_PCF = IN A,(REGS1) |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
I2C_START: |
||||
|
LD A,PCF_START_ |
||||
|
OUT (REGS1),A |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
I2C_REPSTART: |
||||
|
LD A,PCF_START_ |
||||
|
OUT (REGS1),A |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
I2C_STOP: |
||||
|
LD A,PCF_STOP_ |
||||
|
OUT (REGS1),A |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
HANDLE_LAB: |
||||
|
|
||||
|
LABDLY .EQU 0F000H |
||||
|
|
||||
|
LD A,PCF_PIN |
||||
|
OUT (REGS1),A |
||||
|
LD A,PCF_ES0 |
||||
|
OUT (REGS1),A |
||||
|
; |
||||
|
LD HL,LABDLY |
||||
|
LABLP LD A,H |
||||
|
OR L |
||||
|
DEC HL |
||||
|
JR NZ,LABLP |
||||
|
; |
||||
|
IN A,(REGS1) |
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
WAIT_FOR_BB: |
||||
|
; |
||||
|
BBTIMO .EQU 255 |
||||
|
; |
||||
|
LD HL,BBTIMO |
||||
|
BBNOTO IN A,(REGS1) |
||||
|
AND PCF_BB |
||||
|
RET Z |
||||
|
DEC HL |
||||
|
LD A,H |
||||
|
OR A |
||||
|
JR NZ,BBNOTO |
||||
|
CPL ; RET NZ IF TIMEOUT |
||||
|
BBNOTB RET ; RET Z IF BUS IS BUSY |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
WAIT_FOR_PIN: |
||||
|
; |
||||
|
; RETURN A=00/Z IF SUCCESSFULL |
||||
|
; RETURN A=FF/NZ IF TIMEOUT |
||||
|
; RETURN A=01/NZ IF LOST ARBITRATION |
||||
|
; |
||||
|
PINTIMO .EQU 16000 |
||||
|
; |
||||
|
LD HL,PINTIMO |
||||
|
PINNOTO IN A,(REGS1) |
||||
|
LD (STATUS),A |
||||
|
LD B,A |
||||
|
AND PCF_PIN |
||||
|
RET Z |
||||
|
DEC HL |
||||
|
LD A,H |
||||
|
OR A |
||||
|
JR NZ,PINNOTO |
||||
|
CPL ; RET NZ IF TIMEOUT |
||||
|
PINNOTB RET ; RET Z IF BUS IS BUSY |
||||
|
; |
||||
|
LD B,A |
||||
|
AND PCF_LAB |
||||
|
CALL HANDLE_LAB |
||||
|
LD (STATUS),A |
||||
|
XOR A |
||||
|
INC A |
||||
|
RET |
||||
|
; |
||||
|
STATUS .DB 00H |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
PCF_INIT: |
||||
|
LD A,PCF_PIN ; S1=80H: S0 SELECTED, SERIAL |
||||
|
OUT (REGS1),A ; INTERFACE OFF |
||||
|
NOP |
||||
|
IN A,(REGS1) ; CHECK TO SEE S1 NOW USED AS R/W |
||||
|
AND 07FH ; CTRL. PCF8584 DOES THAT WHEN ESO |
||||
|
JR NZ,INIERR ; IS ZERO |
||||
|
; |
||||
|
LD A,PCF_OWN ; LOAD OWN ADDRESS IN S0, |
||||
|
OUT (REGS0),A ; EFFECTIVE ADDRESS IS (OWN <<1) |
||||
|
NOP |
||||
|
IN A,(REGS0) ; CHECK IT IS REALLY WRITTEN |
||||
|
CP PCF_OWN |
||||
|
JR NZ,SETERR |
||||
|
; |
||||
|
LD A,+(PCF_PIN | PCF_ES1) ; S1=0A0H |
||||
|
OUT (REGS1),A ; NEXT BYTE IN S2 |
||||
|
NOP |
||||
|
IN A,(REGS1) |
||||
|
AND 07FH |
||||
|
CP PCF_ES1 |
||||
|
JR NZ,REGERR |
||||
|
; |
||||
|
LD A,PCF_CLK ; LOAD CLOCK REGISTER S2 |
||||
|
OUT (REGS0),A |
||||
|
NOP |
||||
|
IN A,(REGS0) ; CHECK IT'S REALLY WRITTEN, ONLY |
||||
|
AND 1FH ; THE LOWER 5 BITS MATTER |
||||
|
CP PCF_CLK |
||||
|
JR NZ,CLKERR |
||||
|
; |
||||
|
LD A,PCF_IDLE_ |
||||
|
OUT (REGS1),A |
||||
|
NOP |
||||
|
IN A,(REGS1) |
||||
|
CP +(PCF_PIN | PCF_BB) |
||||
|
JR NZ,IDLERR |
||||
|
|
||||
|
RET |
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
PCF_SENDBYTES: ; HL POINTS TO DATA, BC = COUNT, A = 0 LAST A=1 NOT LAST |
||||
|
; |
||||
|
LD (LASTB),A |
||||
|
; |
||||
|
SB0: LD A,(HL) |
||||
|
OUT (REGS0),A |
||||
|
CALL WAIT_FOR_PIN |
||||
|
JR Z,SB1 |
||||
|
|
||||
|
CP 01H ; EXIT IF ARBITRATION ERROR |
||||
|
RET Z |
||||
|
|
||||
|
CALL I2C_STOP ; MUST BE TIMEOUT |
||||
|
LD A,055H ; ERROR |
||||
|
RET |
||||
|
|
||||
|
SB1: LD A,(STATUS) |
||||
|
AND PCF_LRB |
||||
|
JR NZ,SB2 |
||||
|
LD A,055H |
||||
|
; |
||||
|
SB2: LD A,B |
||||
|
OR C |
||||
|
INC HL |
||||
|
JR NZ,SB0 ; CHECK IF FINISHED |
||||
|
; |
||||
|
SBGOOD: LD A,(LASTB) |
||||
|
OR A |
||||
|
JR NZ,DB3 |
||||
|
CALL I2C_STOP |
||||
|
RET |
||||
|
DB3: CALL I2C_REPSTART |
||||
|
RET |
||||
|
; |
||||
|
LASTB .DB 00H |
||||
|
; |
||||
|
|
||||
|
; I2C_INB = IN A,(REGS0) |
||||
|
; I2C_OUTB = LD A,* | OUT (REGS0),A |
||||
|
; SET_PCF = LD A,* | OUT (REGS1),A |
||||
|
; GET_PCF = IN A,(REGS1) |
||||
|
|
||||
|
|
||||
|
; |
||||
|
;----------------------------------------------------------------------------- |
||||
|
|
||||
|
INIERR LD HL,NOPCF |
||||
|
CALL PRTSTR |
||||
|
RET |
||||
|
; |
||||
|
SETERR LD HL,WRTFAIL |
||||
|
CALL PRTSTR |
||||
|
RET |
||||
|
REGERR LD HL,REGFAIL |
||||
|
CALL PRTSTR |
||||
|
RET |
||||
|
; |
||||
|
CLKERR LD HL,CLKFAIL |
||||
|
CALL PRTSTR |
||||
|
RET |
||||
|
; |
||||
|
IDLERR LD HL,IDLFAIL |
||||
|
CALL PRTSTR |
||||
|
RET |
||||
|
; |
||||
|
NOPCF .DB "NO DEVICE FOUND",CR,LF,"$" |
||||
|
WRTFAIL .DB "SETTING DEVICE ID FAILED",CR,LF,"$" |
||||
|
REGFAIL .DB "CLOCK REGISTER SELECT ERROR",CR,LF,"$" |
||||
|
CLKFAIL .DB "CLOCK SET FAIL",CR,LF,"$" |
||||
|
IDLFAIL .DB "BUS IDLE FAILED",CR,LF,"$" |
||||
|
; |
||||
|
#INCLUDE "i2ccpm.inc" |
||||
|
; |
||||
|
BUFFER: .DS 256 |
||||
|
; |
||||
|
.END |
||||
Loading…
Reference in new issue