|
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: 1627 (0x65b)
Types: TextFile
Names: »I8253.S«
└─⟦a3edd706e⟧ Bits:30005202 8" Zilog MCZ/1 Floppy CR80FD_0028 ( TC 500 SEC. PROTOCOL BACK UP ! (V1) BB A1 820907 NCJ )
└─ ⟦this⟧ »I8253.S«
└─⟦e12128f26⟧ Bits:30005200 8" Zilog MCZ/1 Floppy CR80FD_0026 ( TC 500 SEC. PROTOCOL BB V1 830407 NCJ )
└─ ⟦this⟧ »I8253.S«
;************************************************************************** ;* ;* I8253 MODULE ;* ;************************************************************************** ;* ;************************************************************************** ;INITIALIZING PROGRAM FOR 8253 TIMER ; ;ENTRY POINT: REGISTER DE :BAUD RATE VALUE (SEE TABLE) ; REGISTER BC :C=0 COUNTER 0 SELECTED ; C=1 COUNTER 1 SELECTED ; REGISTER IX REGISTER BC CHANNEL ; ; 02 01 = 01 ; 02 00 = 02 ; 01 01 = 03 ; 01 00 = 04 ; ;BAUD RATE TABLE: ; (DE) BAUD RATE ; 0A 1200 ; 0B 2400 ; 0C 4800 ; 0D 9600 ;EXIT POINT: ;************************************************************************* GLOBAL I8253 ;ADDRESS OF INITIALIZING PROGRAMM GLOBAL SYNTAB ;ADDRESS OF SYNCHRON BAUD RATE TABLE T5310 EQU 10H ;ADDRESS OF TIMER 1 T5311 EQU 11H T5313 EQU 13H T5330 EQU 30H ;ADDRESS OF TIMER 2 T5331 EQU 31H T5333 EQU 33H I8253 LD A,0AH IGEN DEC DE DEC A JP NZ,IGEN LD HL,SYNTAB ADD HL,DE ADD HL,DE LD E,(HL) INC HL LD D,(HL) LD A,01H CP C JP Z,COUNT1 DI PUSH IX POP BC EI LD A,C CP 01H JP NZ,NO12 LD C,T5310 PUSH BC LD C,T5313 JP OUT24 NO12 LD B,00H LD C,T5330 PUSH BC LD C,T5333 OUT24 LD A,036H JP OUTPUT COUNT1 DI PUSH IX POP BC EI LD A,C CP 01H JP NZ,NO22 LD B,00H LD C,T5311 PUSH BC LD C,T5313 JP OUT13 NO22 LD B,00H LD C,T5331 PUSH BC LD C,T5333 OUT13 LD A,076H OUTPUT OUT (C),A POP BC OUT (C),E OUT (C),D RET SYNTAB DEFW 00600H DEFW 00300H DEFW 00180H DEFW 000C0H