|
DataMuseum.dkPresents historical artifacts from the history of: Intel ISIS Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Intel ISIS Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1789 (0x6fd)
Types: TextFile
Names: »T3RAM.SRC«
└─⟦519079be6⟧ Bits:30005500 8" CR80 Floppy CR80FD_0029 ( WBOOTL.SYS W.D bootload program 81 10 01 ??? )
└─⟦519079be6⟧ Intel_ISIS_II
└─ ⟦this⟧ »T3RAM.SRC«
PUBLIC T3RAM\r ;-------RAM WRITE READ TEST-------------------------------T3RAM----------\r ;DESCRIP: THE ROUTINE CHECK THE RAM FOR WRITE/READ\r ; AND REFLECTION ERROR.\r ; THE RAM IS LEFT WITH THE TEST PATTERN\r ; INTO ALL THE RAM \r ;ENTRY: A - TEST PATTERN\r ; DE - FIRST RAM ADDRESS\r ; HL - LAST RAM ADDRESS\r ;EXIT: A = 0 TEST COMPLETED\r ; A <> 0 : HL - ERROR ADDRESS.\r ;DESTROY: F,DE,HL,(RAM)\r ;TIME: 287 + 159 * BYTE COUNT TCYCLES\r T3RAM PUSH DE ;SAVE ENTRY DATA\r PUSH HL\r AND A\r SBC HL,DE ;BYTE COUNT = START ADDR. - END ADDR.\r EX DE,HL ;FOR ADDR. = START TO END\r INC E\r INC D\r DEC HL\r T31LOOP INC HL\r LD (HL),A ; WRITE TEST PATTERN\r CP (HL)\r JR NZ,T31ERROR ; JUMP IF WRITE/READ ERROR\r DEC E\r JP NZ,T31LOOP\r DEC D\r JP NZ,T31LOOP ;NEXT ADDR.\r T31NEXT POP HL ;RESTORE ENTRY DATA\r POP DE\r PUSH DE\r PUSH HL ;SAVE INTRY DATA\r AND A\r SBC HL,DE ;BYTE COUNT = START ADDR. - END ADDR.\r EX DE,HL ;FOR ADR. = START TO END\r INC E\r INC D\r DEC HL\r T32LOOP INC HL\r CP (HL) ; JUMP IF REFLECTION ERROR\r JR NZ,T31ERROR\r CPL ; COMPLEMENT TEST PATTERN\r LD (HL),A ; WRITE TEST PATTERN\r CP (HL)\r CPL ; COMPLEMENT TEST PATTERN\r JR NZ,T31ERROR ; JUMP IF WRITE/READ ERROR\r DEC E\r JP NZ,T32LOOP\r DEC D\r JP NZ,T32LOOP ;NEXT ADR.\r POP HL\r POP DE\r PUSH HL ;SAVE END ADDRESS\r AND A\r SBC HL,DE\r EX DE,HL\r POP HL ;RESTORE END ADDRESS\r INC E\r INC D\r INC HL\r T33LOOP DEC HL ;FOR ADDR = END TO START STEP -1\r CPL\r CP (HL)\r CPL\r JR NZ,T32ERROR ;JUMP IF REFLECTION ERROR\r LD (HL),A\r CP (HL)\r JR NZ,T32ERROR ;JUMP IF WRITE/READ ERROR\r DEC E\r JP NZ,T33LOOP\r DEC D\r JP NZ,T33LOOP ;NEXT ADDR\r T32NEXT LD A,0 ;TEST COMPLET\r RET ;RETURN\r T31ERROR POP DE ;ADJUST STACK POINTER\r POP DE\r T32ERROR LD A,0FFH ;ERROR EXIT\r RET\r