|
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: 943 (0x3af)
Types: TextFile
Names: »T2RAM.SRC«
└─⟦519079be6⟧ Bits:30005500 8" CR80 Floppy CR80FD_0029 ( WBOOTL.SYS W.D bootload program 81 10 01 ??? )
└─⟦519079be6⟧ Intel_ISIS_II
└─ ⟦this⟧ »T2RAM.SRC«
PUBLIC T2RAM\r CSEG\r ;-------RAM READ TEST-------------------------------------T2RAM----------\r ;DESCRIP: THE ROUTINE CHECK THE RAM FOR REFLECTION ERROR.\r ; THE ROUTINE IS USED IN CONJUNCTION WITH\r ; THE T1RAM ROUTINE FOR MULTI RAM TEST\r ;ENTRY: (FIRST RAM ADDR.) - COMPLEMENTED TEST PATTERN\r ; (SECOND RAM ADDRESS) - TEST PATTERN\r ; ..\r ; .\r ; 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\r ;TIME: 58+38*BYTE COUNT TCYCLES\r T2RAM CPL\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 T22LOOP INC HL\r CP (HL) ; JUMP IF REFLECTION ERROR\r JR NZ,T22ERROR\r CPL ; COMPLEMENT TEST PATTERN\r DEC E\r JP NZ,T22LOOP\r DEC D\r JP NZ,T22LOOP ;NEXT ADR.\r T22NEXT LD A,0 ;TEST COMPLET\r RET ;RETURN\r T22ERROR LD A,0FFH ;ERROR EXIT\r RET\r