|
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: 1176 (0x498)
Types: TextFile
Names: »ERROR.SRC«
└─⟦519079be6⟧ Bits:30005500 8" CR80 Floppy CR80FD_0029 ( WBOOTL.SYS W.D bootload program 81 10 01 ??? )
└─⟦519079be6⟧ Intel_ISIS_II
└─ ⟦this⟧ »ERROR.SRC«
PUBLIC ERROR\r EXTRN MDELAY,TESTPO\r TESTBI EQU 4\r ;-------PULSE TEST LED------------------------------------------ERROR-----\r ;DESCRIP: THE TEST LED IS PULSED ACCORDING TO THE\r ; CONDENCE OF THE A REG.\r ;RESTRICTIONS: DO FOREVER ROUTINE.\r ;ENTRY: A - ERROR CODE\r ERROR EI\r LD L,A\r LD H,A ;SAVE ERROR CODE\r LD C,TESTPO.LOW.\r IN E,(C)\r RES TESTBI,E\r OUT (C),E ;TURN OFF TEST LED\r XOR A ;DO FOREVER\r E1LOOP INC A\r CP 1 ;START WITH 2 SPACES\r JR Z,OUTSP\r CP 2\r JR Z,OUTSP\r CP 7\r JR Z,OUTSP ;SPACE AFTER BIT 3\r LD DE,1000 ;FOR BIT 0 TO 8\r CALL MDELAY ; DELAY 1 PERIOD\r IN E,(C)\r SET TESTBI,E\r OUT (C),E ; TURN ON TEST BIT\r LD DE,1000 ; IF BIT = 0 THEN\r RRC L\r JR C,OUT1\r LD DE,2000 ; DELAY 2 PERIODS\r CALL MDELAY\r JR E1NEXT ; ELSE\r OUT1 LD DE,1000 ; DELAY 1 PERIOD\r CALL MDELAY\r E1NEXT IN E,(C) ; ENDIF\r RES TESTBI,E\r OUT (C),E\r CP 11\r JP NZ,E1LOOP ;NEXT BIT\r XOR A\r JR E1LOOP ;ENDDO\r ;\r ;\r OUTSP LD DE,100 ;DELAY 0.1 PERIOD\r CALL MDELAY\r IN E,(C)\r SET TESTBI,E\r OUT (C),E ;TURN ON TEST LED\r LD DE,2900\r CALL MDELAY ;DELAY 2.9 PERIOD\r IN E,(C)\r RES TESTBI,E\r OUT (C),E\r JP E1LOOP ;RETURN TO ERROR LOOP\r