|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1063 (0x427)
Types: TextFile
Names: »ERRREC.S«
└─⟦a3edd706e⟧ Bits:30005202 8" Zilog MCZ/1 Floppy CR80FD_0028 ( TC 500 SEC. PROTOCOL BACK UP ! (V1) BB A1 820907 NCJ )
└─ ⟦this⟧ »ERRREC.S«
└─⟦e12128f26⟧ Bits:30005200 8" Zilog MCZ/1 Floppy CR80FD_0026 ( TC 500 SEC. PROTOCOL BB V1 830407 NCJ )
└─ ⟦this⟧ »ERRREC.S«
;**************************************************************************** ;* ;* RECEIVE_ERROR MODULE ;* ;**************************************************************************** *INCLUDE CONSTANT.S GLOBAL ERRREC EXTERNAL SIOREADWRITE EXTERNAL HUNT EXTERNAL SUBENQ ERRREC LD C,(IY+1CH) ;GET SIO ADDRESS 19 IN A,(C) ;READ RECEIVED CHARACTER 12 LD E,(IY+2AH) ;IF NO BUFFER IN RECEIVER LD D,(IY+2BH) ; LD A,E ; OR D ; JR NZ,STA1ERR ;THEN DO LD BC,1000000100000000B CALL SIOREADWRITE ; SIOCON 1,R,D,D LD BC,0110000000110000B CALL SIOREADWRITE ; SIOCON 0,W,S,030H CALL HUNT ;GET NEW INTERRUPT VECTOR RET ; RETURN ; END ;ELSE DO STA1ERR LD L,(IY+08H) ; GET ADDRESS OF EMPTY QUEUE LD H,(IY+09H) ; CALL SUBENQ ; ENQUE BUFFER IN EMPTY QUEUE LD BC,1000000100000000B CALL SIOREADWRITE ; SIOCON 1,R,D,D LD BC,0110000000110000B CALL SIOREADWRITE ; SIOCON 0,W,S,030H CALL HUNT ; GET NEW INTERRUPT VECTOR LD (IY+2AH),00H ; RESET BUFFER ELEMENT ADDRESS LD (IY+2BH),00H ; RET ; RETURN ; END *E ;ECHO \f