|
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: 1643 (0x66b)
Types: TextFile
Names: »RESET.S«
└─⟦a3edd706e⟧ Bits:30005202 8" Zilog MCZ/1 Floppy CR80FD_0028 ( TC 500 SEC. PROTOCOL BACK UP ! (V1) BB A1 820907 NCJ )
└─ ⟦this⟧ »RESET.S«
└─⟦e12128f26⟧ Bits:30005200 8" Zilog MCZ/1 Floppy CR80FD_0026 ( TC 500 SEC. PROTOCOL BB V1 830407 NCJ )
└─ ⟦this⟧ »RESET.S«
;***************************************************************************** ;* ;* RESET MODULE ;* ;***************************************************************************** *P 42 GLOBAL TAB_RESET,PARAM_RESET,PROCESS_RESET TAB_RESET PUSH HL ; STORE ADDRESS OF CHANNEL_TABLE LD DE,12H ; RESET ADDXBUF,COUXBY,CHEXCAL ADD HL,DE LD A,0 LD C,09 LOOP LD (HL),A ; RESET RECXSUM,TIMXSTA,TIMXVAL INC HL ; RESET TIMXOUT DEC C JP NZ,LOOP ; POP IY ; RESTORE ADDRESS OF CHANNEL_TABLE LD A,02 LD (IY),A ; RESET CHANNEL_STATUS LD A,0 LD (IY+04),A ; RESET XMITXELE LD (IY+05),A LD (IY+06),A ; RESET RECXELE LD (IY+07),A LD (IY+1EH),A ; RESET TRANSMITTER INTERRUPT OFFSET LD (IY+1FH),A ; RESET RECEIVER INTERRUPT OFFSET LD (IY+20H),A ; RESET TXXUND LD (IY+21H),A ; RESET NEWXBUF LD (IY+26H),A ; RESET SYNXSTA LD (IY+27H),A ; RESET PERXMIT LD (IY+2AH),A ; RESET ELEXADD LD (IY+2BH),A LD (IY+0EH),A ; RESET RECXERR LD (IY+2CH),A ; RESET BYXCOU LD (IY+2DH),A ; LD (IY+2EH),A ; RESET BUFXADD LD (IY+2FH),A LD (IY+36H),A ; RESET ADDXELE LD (IY+37H),A RET ; ; ; PARAM_RESET PUSH HL ; STORE ADDRESS OF PARAM_TABLE LD DE,14 ADD HL,DE LD A,0 LD C,6 LOOP2 LD (HL),A ; RESET MULTI_TEXT,XM#,BLOCK_STATUS INC HL DEC C ; RESET OVERLOAD_INDICATOR,REJECT_STATUS JP NZ,LOOP2 ; POP IY ; RESTORE ADDRESS OF PARAM_TABLE LD (IY+07),A ; RESET MONITOR_STATUS LD (IY+10),A ; RESET TABLE_STATUS LD A,11H LD (IY+8),A ; RESET CR80_RESP LD A,80H LD (IY+9),A ; RESET CR80_COMMAND RET ; ; ; PROCESS_RESET LD A,0 LD (HL),A ; RESET POLL_COMMAND INC HL INC HL INC HL LD (HL),A ; RESET DIAL_UP_MODE RET END