|
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: 1705 (0x6a9)
Types: TextFile
Names: »TSTRAM.SRC«
└─⟦519079be6⟧ Bits:30005500 8" CR80 Floppy CR80FD_0029 ( WBOOTL.SYS W.D bootload program 81 10 01 ??? )
└─⟦519079be6⟧ Intel_ISIS_II
└─ ⟦this⟧ »TSTRAM.SRC«
PUBLIC START,T1RAM,ERROR,OK\r ;*******SINGLE RAM TEST***********************************************\r START LD SP,400\r LD DE,4000H\r LD HL,401FH\r LD A,55H\r CALL T1RAM\r AND A\r JR NZ,ERROR\r OK NOP ;TEST COMPLETED\r JP START\r ERROR NOP ;RAM ERROR\r JP START\r ;\r ;\r ;\r ;\r ;-------RAM WRITE READ TEST-------------------------------T1RAM----------\r ;DESCRIP: THE ROUTINE CHECK THE RAM FOR WRITE/READ\r ; AND REFLECTION ERROR.\r ; THE RAM IS LEFT WITH THE COMPLEMENTED TEST PATTERN\r ; INTO THE FIRST RAM ADDRESS,THE TEST PATTERN INTO\r ; SECOND AND SO ON.\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,C,DE,HL,(RAM)\r ;TIME:\r T1RAM PUSH AF ;SAVE ENTRY DATA\r PUSH DE\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 T11LOOP INC HL\r LD (HL),A ; WRITE TEST PATTERN\r CP (HL)\r JR NZ,T11ERROR ; JUMP IF WRITE/READ ERROR\r CPL ; COMPLEMENT TEST PATTERN\r DEC E\r JP NZ,T11LOOP\r DEC D\r JP NZ,T11LOOP ;NEXT ADDR.\r T11NEXT POP HL ;RESTORE ENTRY DATA\r POP DE\r POP AF\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 T12LOOP INC HL\r CP (HL) ; JUMP IF REFLECTION ERROR\r JR NZ,T12ERROR\r CPL ; COMPLEMENT TEST PATTERN\r LD (HL),A ; WRITE TEST PATTERN\r CP (HL)\r JR NZ,T12ERROR ; JUMP IF WRITE/READ ERROR\r DEC E\r JP NZ,T12LOOP\r DEC D\r JP NZ,T12LOOP ;NEXT ADR.\r T12NEXT LD A,0 ;TEST COMPLET\r RET ;RETURN\r T11ERROR POP DE ;ADJUST STACK POINTER\r POP DE\r POP DE\r T12ERROR LD A,0FFH ;ERROR EXIT\r RET\r