|
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: 1699 (0x6a3)
Types: TextFile
Names: »EXTSTA.S«
└─⟦a3edd706e⟧ Bits:30005202 8" Zilog MCZ/1 Floppy CR80FD_0028 ( TC 500 SEC. PROTOCOL BACK UP ! (V1) BB A1 820907 NCJ )
└─ ⟦this⟧ »EXTSTA.S«
└─⟦e12128f26⟧ Bits:30005200 8" Zilog MCZ/1 Floppy CR80FD_0026 ( TC 500 SEC. PROTOCOL BB V1 830407 NCJ )
└─ ⟦this⟧ »EXTSTA.S«
;***************************************************************************** ;* ;* EXTERNAL/STATUS MODULE ;* ;***************************************************************************** *INCLUDE CONSTANT.S GLOBAL EXTSTA EXTERNAL SIOREADWRITE EXTERNAL SUBENQ EXTERNAL HUNT EXTSTA LD BC,0000000000000000B CALL SIOREADWRITE ; SIOCON 0,R,D,D LD A,(IY+26H) ; IF SEACHING FOR SYNCH CP 00H ; 07 JR NZ,NOSYN ;THEN DO 10 LD L,(IY+24H) ; GET CONTENT OF READ REGISTER 0 19 LD H,(IY+25H) ; 19 LD DE,08H ; 10 ADD HL,DE ; 11 LD A,(HL) ; 07 AND 010H ; IF SYNCHRONIZATION ACCEPT 07 JR NZ,RES1EXT ; THEN DO 10 LD A,01H ; SYNC_STATUS = 01H 07 LD (IY+26H),A ; 19 LD (IY+1FH),02H ; NEXT INT.ROUTINE = STAXREC LD BC,1010001100100000B CALL SIOREADWRITE ; SIOCON 3,W,R,020H JR RES1EXT ; END ;ELSE DO NOSYN LD L,(IY+24H) ; GET CONTENT OF READ REGISTER 0 19 LD H,(IY+25H) ; 19 LD DE,08H ; 10 ADD HL,DE ; 11 LD A,(HL) ; 07 AND 010H ; IF SYNCHRONIZATION LOST 07 JR Z,RES1EXT ; THEN DO 10 LD E,(IY+2AH) ; IF RECEIVING 19 LD D,(IY+2BH) ; 19 LD A,E ; IN PROGRESS 04 OR D ; 04 JR Z,SYNNO ; THEN DO 10 LD HL,STWOFF+1 ; CALCULATE STA- ADD HL,DE ; TUS WORD AD- 11 ; DRESS SET 0,(HL) ; SET SYNCHRONI- 15 ; ZATION ERROR BIT LD (IY+2AH),00H ; RESET BUFFER 19 LD (IY+2BH),00H ; ELEMENT 19 LD L,(IY+28H) ; TRANSFER BUFFER 19 LD H,(IY+29H) ; 19 CALL SUBENQ ; TO QUEUE 157 ; END SYNNO CALL HUNT ; GET NEW INTERRUPT VECTOR RES1EXT LD BC,0110000000010000B CALL SIOREADWRITE ; SIOCON 0,W,S,010H RET ; RETURN FROM GENEREL PROCESS *E ;ECHO \f