Merge pull request #187 from wwarthen/dev

Dev

Source/Apps/MBC/button2.asm

@@ -0,0 +1,19 @@
+; test program for user button on Z80 MBC clock board
+; by Andrew Lynch, 6 Jul 2021
+
+
+  ORG    00100H
+
+MAIN_LOOP:
+
+	IN	A,($70)		    ; READ USER BUTTON STATUS
+	AND	%01000000	    ; REMOVE ALL EXCEPT USER BUTTON (D6)
+	    			    ; 0=PRESSED, 1=NOT PRESSED
+	JR	NZ,MAIN_LOOP	; IF NOT PRESSED TRY AGAIN
+
+	LD	A,%00000011	    ; TURN ON BOTH USER LEDS
+	OUT	($70),A		    ;
+
+    RET
+    
+    end

Source/Apps/MBC/leds2.asm

@@ -0,0 +1,8 @@
+; program to test user LEDs on Z80 MBC clock board
+; by Andrew Lynch, 6 Jul 2021
+
+  org $0100
+	LD	A,%00000011
+    OUT	($70),A	; turn on USERLED0 and USERLED1
+    RET
+	end

Source/Apps/MBC/tone3.asm

@@ -0,0 +1,35 @@
+; program to test user buzzer/speaker on Z80 MBC clock board
+; by Andrew Lynch, 6 Jul 2021
+
+	org $0100
+
+	LD	HL,$7FFF	; INITIALIZE OUTER LOOP
+	LD	DE,$0001	; DECREMENT VALUE
+
+START:
+
+	LD	A,%00000100
+	OUT	($70),A		; TURN ON SPEAKER
+
+	LD	B,$80		; HOLD SPEAKER ON FOR 128 COUNTS
+LOOP1:	DJNZ	LOOP1
+
+	LD	A,%00000000
+	OUT	($70),A		; TURN OFF SPEAKER
+
+	LD	B,$80		; HOLD SPEAKER OFF FOR 128 COUNTS
+LOOP2:	DJNZ	LOOP2
+
+	SBC	HL,DE		; REDUCE OUTER LOOP BY 1
+
+	JR	NZ,START	; LOOP 32768 TIMES, ABOUT 15 SECONDS
+
+	LD	A,%00000011
+	OUT	($70),A		; TURN ON BOTH USER LEDS
+
+;	HALT			; HALT & TURN ON HALT LED
+
+    RET
+
+	end
+

Source/Apps/Makefile

@@ -1,6 +1,6 @@
-OBJECTS = SysGen.com Survey.com \
-	SysCopy.com Assign.com Format.com Talk.com Mode.com RTC.com \
-	Timer.com IntTest.com RTCds7.com RTChb.com
+OBJECTS = sysgen.com survey.com \
+	syscopy.com assign.com format.com talk.com mode.com rtc.com \
+	timer.com inttest.com rtcds7.com rtchb.com ppidetst.com tstdskng.com
 OTHERS = *.hex *.com
 SUBDIRS = XM FDU FAT Tune I2C
 DEST = ../../Binary/Apps
@@ -10,5 +10,5 @@ include $(TOOLS)/Makefile.inc
 
 USETASM = 1
 
-Survey.com: USETASM=0
+survey.com: USETASM=0
 

Source/Apps/Tune/Build.cmd

@@ -5,11 +5,11 @@ set TOOLS=../../../Tools
 set PATH=%TOOLS%\tasm32;%PATH%
 set TASMTABS=%TOOLS%\tasm32
 
-tasm -t180 -g3 -fFF -dWBW Tune.asm Tune.com Tune.lst
-tasm -t180 -g3 -fFF -dZX Tune.asm Tunezx.com Tunezx.lst
-tasm -t180 -g3 -fFF -dMSX Tune.asm Tunemsx.com Tunemsx.lst
+tasm -t180 -g3 -fFF -dWBW tune.asm tune.com tune.lst
+tasm -t180 -g3 -fFF -dZX tune.asm tunezx.com tunezx.lst
+tasm -t180 -g3 -fFF -dMSX tune.asm tunemsx.com tunemsx.lst
 
 if errorlevel 1 goto :eof
 
-copy /Y Tune*.com ..\..\..\Binary\Apps\
+copy /Y tune*.com ..\..\..\Binary\Apps\
 copy /Y Tunes\*.* ..\..\..\Binary\Apps\Tunes\

Source/Apps/rtcds7.asm

@@ -0,0 +1,703 @@
+;==================================================================================================
+; PCF8584 I2C Clock Driver
+;==================================================================================================
+;
+PCF_BASE  	.EQU  0F0H
+PCF_ID   	.EQU  0AAH
+CPU_CLK	  	.EQU  12
+
+REGS0     	.EQU  PCF_BASE
+REGS1    	.EQU  REGS0+1
+PCF_OWN	 	.EQU  (PCF_ID >> 1)        	; PCF'S ADDRESS IN SLAVE MODE
+;
+;T4LC512D	.EQU	10100000B		; DEVICE IDENTIFIER
+;T4LC512A1	.EQU	00000000B		; DEVICE ADDRESS
+;T4LC512A2	.EQU	00001110B		; DEVICE ADDRESS
+;T4LC512A3	.EQU	00000010B		; DEVICE ADDRESS
+;T4LC512W	.EQU	00000000B		; DEVICE WRITE
+;T4LC512R	.EQU	00000001B		; DEVICE READ
+;
+;I2CDEV1W  	.EQU	(T4LC512D+T4LC512A1+T4LC512W)
+;I2CDEV1R	.EQU	(T4LC512D+T4LC512A1+T4LC512R)
+;
+;I2CDEV2W  	.EQU	(T4LC512D+T4LC512A2+T4LC512W)
+;I2CDEV2R	.EQU	(T4LC512D+T4LC512A2+T4LC512R)
+;
+;I2CDEV3W  	.EQU	(T4LC512D+T4LC512A3+T4LC512W)
+;I2CDEV3R	.EQU	(T4LC512D+T4LC512A3+T4LC512R)
+;
+; CONTROL REGISTER BITS
+;
+PCF_PIN  	.EQU  10000000B
+PCF_ES0  	.EQU  01000000B
+PCF_ES1  	.EQU  00100000B
+PCF_ES2  	.EQU  00010000B
+PCF_EN1  	.EQU  00001000B
+PCF_STA  	.EQU  00000100B
+PCF_STO  	.EQU  00000010B
+PCF_ACK  	.EQU  00000001B
+;
+PCF_START_    	.EQU  (PCF_PIN | PCF_ES0 | PCF_STA | PCF_ACK)
+PCF_STOP_     	.EQU  (PCF_PIN | PCF_ES0 | PCF_STO | PCF_ACK)
+PCF_REPSTART_ 	.EQU  (          PCF_ES0 | PCF_STA | PCF_ACK)
+PCF_IDLE_     	.EQU  (PCF_PIN | PCF_ES0           | PCF_ACK)
+;
+; STATUS REGISTER BITS
+;
+;PCF_PIN  	.EQU  10000000B
+PCF_INI   	.EQU  01000000B   ; 1 if not initialized 
+PCF_STS   	.EQU  00100000B
+PCF_BER   	.EQU  00010000B
+PCF_AD0   	.EQU  00001000B
+PCF_LRB   	.EQU  00001000B
+PCF_AAS   	.EQU  00000100B
+PCF_LAB   	.EQU  00000010B
+PCF_BB    	.EQU  00000001B
+;
+; CLOCK CHIP FREQUENCIES
+;
+PCF_CLK3   	.EQU	000H
+PCF_CLK443 	.EQU	010H
+PCF_CLK6   	.EQU	014H
+PCF_CLK8   	.EQU	018H
+PCF_CLK12  	.EQU	01cH
+;
+; TRANSMISSION FREQUENCIES
+;
+PCF_TRNS90 	.EQU	000H	;  90 kHz */
+PCF_TRNS45 	.EQU	001H	;  45 kHz */
+PCF_TRNS11 	.EQU	002H	;  11 kHz */
+PCF_TRNS15 	.EQU	003H	; 1.5 kHz */
+;
+; TIMEOUT AND DELAY VALUES (ARBITRARY)
+;
+PCF_PINTO	.EQU	65000
+PCF_ACKTO	.EQU	65000
+PCF_BBTO	.EQU	65000
+PCF_LABDLY	.EQU	65000
+;
+; DATA PORT REGISTERS
+;
+#IF (CPU_CLK = 443)
+PCF_CLK .EQU PCF_CLK443
+#ELSE 
+ #IF (CPU_CLK = 8)
+PCF_CLK .EQU PCF_CLK8
+ #ELSE 
+  #IF (CPU_CLK = 12)
+PCF_CLK .EQU PCF_CLK12
+  #ELSE ***ERROR
+  #ENDIF
+ #ENDIF	
+#ENDIF
+;
+DS7_OUT		.EQU	10000000B		; SELECT SQUARE WAVE FUNCTION
+DS7_SQWE	.EQU	00010000B		; ENABLE SQUARE WAVE OUTPUT
+DS7_RATE	.EQU	00000000B		; SET 1HZ OUPUT
+;
+DS7_DS1307    	.EQU  	11010000B   		; DEVICE IDENTIFIER
+DS7_W   	.EQU  	00000000B   		; DEVICE WRITE
+DS7_R   	.EQU  	00000001B   		; DEVICE READ
+;
+DS7_READ   	.EQU    (DS7_DS1307 | DS7_R)	; READ
+DS7_WRITE 	.EQU    (DS7_DS1307 | DS7_W)	; WRITE
+;
+DS7_CTL		.EQU	(DS7_OUT | DS7_SQWE | DS7_RATE)
+;
+        .ORG  100H
+;
+;
+        CALL   DS7_RDC         ; READ CLOCK DATA INTO BUFFER  
+        CALL   DS7_DISP        ; DISPLAY TIME AND DATE FROM BUFFER 
+	RET
+;
+;-----------------------------------------------------------------------------
+; RTC READ
+;
+; 1.	ISSUE SLAVE ADDRESS WITH START CONDITION AND WRITE STATUS
+; 2.	OUTPUT THE ADDRESS TO ACCESS. (00H = START OF DS1307 REGISTERS)
+; 3.	OUTPUT REPEAT START TO TRANSITION TO READ PROCESS
+; 4.	ISSUE SLAVE ADDRESS WITH READ STATUS
+; 5. 	DO A DUMMY READ 
+; 6.	READ 8 BYTES STARTING AT ADDRESS PREVIOUSLY SET
+; 7.	END READ WITH NON-ACKNOWLEDGE
+; 8.	ISSUE STOP AND RELEASE BUS 
+;
+DS7_RDC:LD	A,DS7_WRITE	; SET SLAVE ADDRESS
+        OUT	(REGS0),A
+;
+	CALL	PCF_WAIT_FOR_BB
+	JP	NZ,PCF_BBERR
+;
+        CALL	PCF_START	; GENERATE START CONDITION
+	CALL	PCF_WAIT_FOR_PIN; AND ISSUE THE SLAVE ADDRESS
+	CALL	NZ,PCF_PINERR
+;
+        LD     	A,0
+        OUT    	(REGS0),A    	; PUT ADDRESS MSB ON BUS
+	CALL	PCF_WAIT_FOR_PIN
+	CALL	NZ,PCF_PINERR
+;
+	CALL	PCF_REPSTART    ; REPEAT START
+;
+        LD	A,DS7_READ	; ISSUE CONTROL BYTE + READ
+        OUT	(REGS0),A
+;
+	CALL	PCF_READI2C	; DUMMY READ
+;
+	LD	HL,DS7_BUF	; READ 8 BYTES INTO BUFFER
+	LD	B,8
+DS7_RL1:CALL	PCF_READI2C
+	LD	(HL),A
+	INC	HL
+	DJNZ    DS7_RL1
+;
+#IF (0)
+	LD	A,8
+	LD	DE,DS7_BUF	; DISLAY DATA READ
+	CALL	PRTHEXBUF	; 
+	CALL   	NEWLINE
+#ENDIF
+;
+	LD     	A,PCF_ES0	; END WITH NOT-ACKNOWLEDGE
+	OUT    	(REGS1),A       ; AND RELEASE BUS
+	NOP
+	IN    	A,(REGS0)
+	NOP
+DS7_WTPIN:	
+	IN	A,(REGS1)	; READ S1 REGISTER
+	BIT	7,A		; CHECK PIN STATUS
+	JP	NZ,DS7_WTPIN
+	CALL   	PCF_STOP
+;
+	IN    	A,(REGS0)
+        RET
+
+;
+;-----------------------------------------------------------------------------
+; DISPLAY CLOCK INFORMATION FROM DATA STORED IN BUFFER
+;
+DS7_DISP:
+	LD	HL,DS7_CLKTBL
+DS7_CLP:LD	C,(HL)
+	INC	HL
+	LD	D,(HL)
+	CALL	DS7_BCD
+	INC	HL
+	LD	A,(HL)
+	OR      A
+	RET	Z
+        CALL	COUT
+	INC	HL
+	JR	DS7_CLP
+	RET
+;
+DS7_CLKTBL:
+	.DB	04H, 00111111B, '/'
+	.DB	05H, 00011111B, '/'
+	.DB	06H, 11111111B, ' '
+	.DB	02H, 00011111B, ':'
+	.DB	01H, 01111111B, ':'
+	.DB	00H, 01111111B, 00H
+;
+DS7_BCD:PUSH	HL
+	LD      HL,DS7_BUF     	; READ VALUE FROM
+	LD      B,0           	; BUFFER, INDEXED BY A 
+	ADD     HL,BC
+	LD      A,(HL)
+	AND     D             	; MASK OFF UNNEEDED
+	SRL     A
+	SRL     A
+	SRL     A
+	SRL     A      
+	ADD     A,30H
+	CALL    COUT
+	LD      A,(HL)    
+	AND     00001111B
+	ADD     A,30H
+	CALL    COUT
+	POP	HL
+	RET
+;
+DS7_BUF:	.FILL	8,0	; BUFFER FOR TIME, DATE AND CONTROL
+
+;-----------------------------------------------------------------------------
+PCF_START:
+        LD     A,PCF_START_  
+	OUT    (REGS1),A
+	RET
+;
+;-----------------------------------------------------------------------------
+PCF_REPSTART:
+        LD     A,PCF_REPSTART_  
+	OUT    (REGS1),A
+	RET
+;
+;-----------------------------------------------------------------------------
+PCF_STOP:   
+	LD   	A,PCF_STOP_
+        OUT  	(REGS1),A
+        RET
+;
+;-----------------------------------------------------------------------------
+;;
+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
+       JP      NZ,PCF_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
+       JP      NZ,PCF_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
+       JP      NZ,PCF_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
+       JP      NZ,PCF_CLKERR
+;
+       LD      A,PCF_IDLE_
+       OUT     (REGS1),A  
+       NOP
+       IN      A,(REGS1)  
+       CP      +(PCF_PIN | PCF_BB)
+       JP      NZ,PCF_IDLERR
+;
+       RET
+;
+;-----------------------------------------------------------------------------
+PCF_HANDLE_LAB:
+;
+        LD     A,PCF_PIN  
+	OUT    (REGS1),A        
+        LD     A,PCF_ES0  
+	OUT    (REGS1),A
+;
+        LD     HL,PCF_LABDLY
+PCF_LABLP:
+	LD     A,H
+        OR     L
+        DEC    HL  
+        JR     NZ,PCF_LABLP
+;
+        IN     A,(REGS1)
+        RET
+;
+;-----------------------------------------------------------------------------
+;
+; RETURN A=00/Z  IF SUCCESSFULL
+; RETURN A=FF/NZ IF TIMEOUT
+; RETURN A=01/NZ IF LOST ARBITRATION
+; PCF_STATUS HOLDS LAST PCF STATUS
+;
+PCF_WAIT_FOR_PIN:
+	PUSH	HL
+        LD      HL,PCF_PINTO					; SET TIMEOUT VALUE
+
+PCF_WFP0: 
+	IN      A,(REGS1)					; GET BUS
+	LD	(PCF_STATUS),A					; STATUS
+	LD	B,A
+
+	DEC	HL						; HAVE WE
+	LD	A,H						; TIMED OUT
+	OR	L
+	JR	Z,PCF_WFP1					; YES WE HAVE, GO ACTION IT
+
+	LD	A,B						; 		
+        AND     PCF_PIN						; IS TRANSMISSION COMPLETE?
+        JR	NZ,PCF_WFP0					; KEEP ASKING IF NOT OR
+	POP	HL						; YES COMPLETE (PIN=0) RETURN WITH ZERO
+	RET
+PCF_WFP1:
+	LD	A,B						; DID WE LOSE ARBITRATION?
+	AND	PCF_LAB						; IF A=0 THEN NO
+	CPL	
+	JR	NZ,PCF_WFP2					; NO 
+	CALL	PCF_HANDLE_LAB					; YES GO HANDLE IT
+	LD	(PCF_STATUS),A
+	XOR	A						; RETURN NZ, A=01H
+	INC	A
+PCF_WFP2:
+	POP	HL                				; RET NZ, A=FF IF TIMEOUT 
+	RET
+;
+PCF_STATUS	.DB	00H
+
+;--------------------------------------------------------------------------------
+;
+; RETURN NZ/FF IF TIMEOUT ERROR
+; RETURN NZ/01 IF FAILED TO RECEIVE ACKNOWLEDGE
+; RETURN Z/00  IF RECEIVED ACKNOWLEDGE
+;
+PCF_WAIT_FOR_ACK:
+	PUSH	HL
+	LD	HL,PCF_ACKTO
+;
+PCF_WFA0:
+	IN      A,(REGS1)	; READ PIN
+        LD	(PCF_STATUS),A	; STATUS
+        LD	B,A
+;        
+        DEC	HL		; SEE IF WE HAVE TIMED
+        LD	A,H		; OUT WAITING FOR PIN
+        OR	L		; EXIT IF
+        JR	Z,PCF_WFA1	; WE HAVE
+;        
+        LD	A,B		; OTHERWISE KEEP LOOPING
+        AND     PCF_PIN		; UNTIL WE GET PIN
+        JR	NZ,PCF_WFA0	; OR TIMEOUT
+;
+	LD	A,B		; WE GOT PIN SO NOW
+	AND	PCF_LRB		; CHECK WE HAVE
+	LD	A,1
+	JR	Z,PCF_WFA2	; RECEIVED ACKNOWLEDGE
+	XOR	A
+	JR	PCF_WFA2
+PCF_WFA1:
+	CPL			; TIMOUT ERROR
+PCF_WFA2:
+	POP	HL		; EXIT WITH NZ = FF
+	RET
+;	
+;--------------------------------------------------------------------------------
+;
+;	HL POINTS TO DATA
+;	DE = COUNT
+;	A = 0 LAST A=1 NOT LAST
+;
+;
+;PCF_READBYTES:			; NOT FUNCTIONAL YET
+
+	LD	(PCF_LBF),A	; SAVE LAST BYTE FLAG
+;
+	INC	DE		; INCREMENT NUMBER OF BYTES TO READ BY ONE -- DUMMY READ BYTE
+	LD	BC,0		; SET BYTE COUNTER
+;
+PCF_RBL:PUSH	BC
+	CALL	PCF_WAIT_FOR_PIN	; DO WE HAVE THE BUS?
+	POP	BC
+	JR	Z,PCF_RB1	; YES
+	CP	01H
+	JR	Z,PCF_RB3	; NO - LOST ARBITRATION
+	JR	PCF_RB2		; NO - TIMEOUT
+;
+PCF_RB1:
+	LD	A,(PCF_STATUS)
+	AND	PCF_LRB
+
+
+	; IS THIS THE SECOND TO LAST BYTE TO GO?
+
+	PUSH	DE		; SAVE COUNT	
+	DEC	DE		; COUNT (DE) = NUMBER OF BYTES TO READ LESS 1
+	EX	DE,HL		; SAVE POINTER, PUT COUNT IN DE
+	XOR	A		; CLEAR CARRY FLAG
+	SBC	HL,BC		; DOES BYTE COUNTER = HL (NUMBER OF BYTES TO READ LESS 1)
+	EX	DE,HL		; RESTORE POINTER
+	POP	DE		; RESTORE COUNT
+
+				; Z = YES IT IS
+				; NZ = NO IT ISN'T
+	JR	NZ,PCF_RB4
+;
+PCF_RB4:LD	A,B		; IF FIRST READ DO A DUMMY 
+	OR	C		; READ OTHERWISE READ AND SAVE
+	JR	NZ,PCF_RB5
+
+	IN	A,(REGS0)	; DUMMY READ
+	JR	PCF_RB6
+
+PCF_RB5:IN	A,(REGS0)	; READ AND SAVE
+	LD	(HL),A
+;
+PCF_RB6:	; HAVE WE DONE ALL?
+
+	PUSH	DE		; SAVE COUNT
+	EX	DE,HL		; SAVE POINTER, PUT COUNT IN DE
+	XOR	A		; CLEAR CARRY FLAG
+	SBC	HL,BC		; DOES BYTE COUNTER = HL (NUMBER OF BYTES TO READ)
+	EX	DE,HL		; RESTORE POINTER
+	POP	DE		; RESTORE COUNT
+;
+	INC	HL		; BUFFER POINTER
+	INC	BC		; COUNT
+;
+	JR	NZ,PCF_RBL	; REPEAT UNTIL COUNTS MATCH
+	RET
+;
+PCF_RB2:			; TIMEOUT
+	CALL	PCF_STOP
+	CALL	PCF_TOERR
+	RET
+;
+PCF_RB3:			; LOST ARBITRATION
+	CALL	PCF_ARBERR
+	RET
+;
+PCF_LBF:
+	.DB	0		; LAST BYTE FLAG
+;
+;-----------------------------------------------------------------------------
+; READ ONE BYTE FROM I2C
+; RETURNS DATA IN A
+; Z FLAG SET IS ACKNOWLEDGE RECEIVED (CORRECT OPERATION)
+;
+PCF_READI2C:
+	IN	A,(REGS1)	; READ S1 REGISTER
+	BIT	7,A		; CHECK PIN STATUS
+	JP	NZ,PCF_READI2C
+	BIT	3,A		; CHECK LRB=0
+	JP	NZ,PCF_RDERR
+	IN	A,(REGS0)	; GET DATA
+	RET
+;-----------------------------------------------------------------------------
+;
+; POLL THE BUS BUSY BIT TO DETERMINE IF BUS IS FREE.
+; RETURN WITH A=00H/Z STATUS IF BUS IS FREE
+; RETURN WITH A=FFH/NZ STATUS IF BUS
+;
+; AFTER RESET THE BUS BUSY BIT WILL BE SET TO 1 I.E. NOT BUSY
+;
+PCF_WAIT_FOR_BB:
+        LD     HL,PCF_BBTO
+PCF_WFBB0:
+	IN     A,(REGS1)
+        AND    PCF_BB
+        RET    Z		; BUS IS FREE RETURN ZERO
+        DEC    HL
+        LD     A,H
+        OR     L
+        JR     NZ,PCF_WFBB0	; REPEAT IF NOT TIMED OUT
+        CPL                	; RET NZ IF TIMEOUT  
+	RET 
+;
+;-----------------------------------------------------------------------------
+; DISPLAY ERROR MESSAGES
+;
+PCF_RDERR:
+	PUSH	HL
+	LD	HL,PCF_RDFAIL
+	JR	PCF_PRTERR
+;
+PCF_INIERR:
+	PUSH	HL
+	LD      HL,PCF_NOPCF
+	JR	PCF_PRTERR
+;	
+PCF_SETERR:
+	PUSH	HL
+	LD      HL,PCF_WRTFAIL
+	JR	PCF_PRTERR
+;
+PCF_REGERR:
+	PUSH	HL
+	LD      HL,PCF_REGFAIL
+	JR	PCF_PRTERR
+;	
+PCF_CLKERR:
+	PUSH	HL
+	LD      HL,PCF_CLKFAIL
+	JR	PCF_PRTERR
+;	
+PCF_IDLERR:
+	PUSH	HL
+	LD      HL,PCF_IDLFAIL
+	JR	PCF_PRTERR 
+;	
+PCF_ACKERR:
+	PUSH	HL
+	LD      HL,PCF_ACKFAIL
+	JR	PCF_PRTERR
+;
+PCF_RDBERR:
+	PUSH	HL
+	LD	HL,PCF_RDBFAIL
+	JR	PCF_PRTERR
+;
+PCF_TOERR:
+	PUSH	HL
+	LD	HL,PCF_TOFAIL
+	JR	PCF_PRTERR
+;
+PCF_ARBERR:
+	PUSH	HL
+	LD	HL,PCF_ARBFAIL
+	JR	PCF_PRTERR
+;
+PCF_PINERR:
+	PUSH	HL
+	LD	HL,PCF_PINFAIL
+	JR	PCF_PRTERR
+;
+PCF_BBERR:
+	PUSH	HL
+	LD	HL,PCF_BBFAIL
+	JR	PCF_PRTERR
+;
+PCF_PRTERR:
+	CALL	PRTSTR
+	CALL	NEWLINE
+	POP	HL	
+	RET
+;
+PCF_NOPCF	.DB	"NO DEVICE FOUND$"
+PCF_WRTFAIL	.DB     "SETTING DEVICE ID FAILED$"
+PCF_REGFAIL 	.DB     "CLOCK REGISTER SELECT ERROR$"
+PCF_CLKFAIL 	.DB     "CLOCK SET FAIL$"
+PCF_IDLFAIL 	.DB     "BUS IDLE FAILED$"
+PCF_ACKFAIL 	.DB	"FAILED TO RECEIVE ACKNOWLEDGE$"
+PCF_RDFAIL	.DB	"READ FAILED$"
+PCF_RDBFAIL	.DB	"READBYTES FAILED$"
+PCF_TOFAIL	.DB	"TIMEOUT ERROR$"
+PCF_ARBFAIL 	.DB	"LOST ARBITRATION$"
+PCF_PINFAIL 	.DB	"PIN FAIL$"
+PCF_BBFAIL	.DB	"BUS BUSY$"
+;
+;-----------------------------------------------------------------------------
+;
+BDOS	.EQU 5		;ENTRY BDOS
+BS	.EQU 8		;BACKSPACE
+TAB	.EQU 9		;TABULATOR
+LF	.EQU 0AH		;LINE-FEED
+CR	.EQU 0DH		;CARRIAGE-RETURN
+;
+; OUTPUT TEXT AT HL
+;
+PRTSTR:	LD	A,(HL)
+	OR	A
+	RET	Z
+	CALL	PRINP
+	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:
+CRLF:	LD E,CR
+	CALL PCHAR
+	LD E,LF
+	CALL PCHAR
+	RET
+;
+;Output ASCII-Character
+;**********************
+;
+COUT:
+PRINP:	PUSH AF
+        PUSH DE
+	LD E,A
+	CALL PCHAR
+        POP DE
+	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
+;
+        .END