|
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: 1719 (0x6b7)
Types: TextFile
Names: »TPIO.SRC«
└─⟦519079be6⟧ Bits:30005500 8" CR80 Floppy CR80FD_0029 ( WBOOTL.SYS W.D bootload program 81 10 01 ??? )
└─⟦519079be6⟧ Intel_ISIS_II
└─ ⟦this⟧ »TPIO.SRC«
NAME TPIO\r PUBLIC TPIO1,TPIO2,T1PORT\r EXTRN ERROR\r CSEG\r ;******************************************************************************\r TITLE 'PIO 1 TEST ROUTINE'\r ;******************************************************************************\r \r ;DESCRIP: THE ROUTINE TEST PIO 1 BY\r ; TESTING PORT A AS OUTPUT PORT.\r TPIO1 LD C,APIO1+0 ;LOAD OUTPUT PORT ADDRESS\r CALL T1PORT ;DO PORT TEST\r AND A\r LD A,APIO1\r CALL NZ,ERROR ; JUMP IF I/O ERROR\r RET ;ENDDO\r ;RETURN\r \r \r \r ;******************************************************************************\r TITLE 'PIO 2 TEST ROUTINE'\r ;******************************************************************************\r \r ;DESCRIP: THE ROUTINE TEST PIO 2 BY\r ; TESTING PORT A AS OUTPUT PORT.\r TPIO2 LD C,APIO2 ;LOAD OUTPUT PORT ADDRESS\r CALL T1PORT ;DO PORT TEST\r AND A\r LD A,APIO2\r CALL NZ,ERROR ; JUMP IF I/O ERROR\r RET ;ENDDO\r ;RETURN\r \r \r \r ;-------OUTPUT PORT TEST ROUTINE --------------------------T1PORT---------\r ;DESCRIP: THE PORT IS TESTED WITH: 00,FF,RUNNING 1\r ; AND RUNNING 0.\r ; THE CONDENCE OF THE PORT IS RESTORED.\r ;ENTRY: C - PORT ADDRESS\r ;DESTROY: A,F,B,D,E\r T1PORT IN E,(C) ;SAVE PORT\r XOR A\r OUT (C),A\r IN D,(C) ;DO 00 TEST\r CP D\r JR NZ,P1ERROR\r LD A,0FFH\r OUT (C),A ;DO FF TEST\r IN D,(C)\r CP D\r JR NZ,P1ERROR\r LD A,80H\r LD B,8\r P11LOOP OUT (C),A ;DO RUNNING 1 TEST\r IN D,(C)\r CP D\r JR NZ,P1ERROR\r RRCA\r DJNZ P11LOOOP ;ENDDO\r EJEC\r LD A,7FH\r LD B,8\r P12LOOP OUT (C),A ;DO RUNNING 0 TEST\r IN D,(C)\r CP D\r JR NZ,P1ERROR\r RRCA\r DJNZ P12LOOP\r XOR A\r OUT (C),E ;RESTORE PORT\r RET ;RETURN IF TEST COMPLETED\r P1ERROR OUT (C),E ;RETURN IF ERROR\r LD A,0FFH\r RET\r END\r