|
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: 794 (0x31a)
Types: TextFile
Names: »TPIO.S«
└─⟦f2a3f19b6⟧ Bits:30005203 8" Zilog MCZ/1 Floppy CR80FD_0030 ( BB LTU TEST BACK UP! BB VD1 821220 )
└─ ⟦this⟧ »TPIO.S«
*INCLUDE CONST.S GLOBAL TPIO1,TPIO2,T1PORT EXTERNAL DETECT TPIO1 LD C,APIO1 CALL T1PORT AND A LD A,APIO1 CALL NZ,DETECT RET TPIO2 LD C,APIO2 CALL T1PORT AND A LD A,APIO2 CALL NZ,DETECT RET ;-------------------------------------------------------------------------- T1PORT IN E,(C) ;SAVE PORT XOR A OUT (C),A IN D,(C) ;DO `00` TEST CP D JR NZ,P1ERROR LD A,0FFH OUT (C),A ;DO `FF` TEST IN D,(C) CP D JR NZ,P1ERROR LD A,80H LD B,8 P11LOOP OUT (C),A ;DO RUNNING 1 TEST IN D,(C) CP D JR NZ,P1ERROR RRCA DJNZ P11LOOP ;OD LD A,7FH LD B,8 P12LOOP OUT (C),A ;DO RUNNING 0 TEST IN D,(C) CP D JR NZ,P1ERROR RRCA DJNZ P12LOOP XOR A OUT (C),E ;RESTORE PORT RET ;RETURN IF TEST COMPLETED P1ERROR OUT (C),E ;RETURN IF ERROR LD A,0FFH RET ;ECHO \f