mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 09:24:19 +00:00
21 lines
640 B
Plaintext
21 lines
640 B
Plaintext
; MACRO LIBRARY FOR STREET TREADLES
|
||
;
|
||
TRINP EQU 01H ;TREADLE INPUT PORT
|
||
TROUT EQU 01H ;TREADLE OUTPUT PORT
|
||
;
|
||
TREAD? MACRO TR,IFTRUE
|
||
;; "TREAD?" IS INVOKED TO CHECK IF
|
||
;; TREADLE GIVEN BY TR HAS BEEN SENSED.
|
||
;; IF SO, THE LATCH IS CLEARED AND CONTROL
|
||
;; TRANSFERS TO THE LABEL "IFTRUE"
|
||
LOCAL IFFALSE ;;IN CASE NOT SET
|
||
;;
|
||
IN TRINP ;;READ TREADLE SWITCHES
|
||
ANI 1 SHL TR ;;MASK PROPER BIT
|
||
JZ IFFALSE ;;SKIP RESET IF 0
|
||
MVI A,1 SHL TR ;;TO RESET THE BIT
|
||
OUT TROUT ;;CLEAR IT
|
||
JMP IFTRUE ;;GO TO TRUE LABEL
|
||
IFFALSE:
|
||
ENDM
|
||
|