'Test for reading - writting random asses memory DELAY:D000_H2 'NUMBER OF CIKLES IN DELAY HLT '----------------------------------------------------DISPLAYING FIRST STRING NEXT: 'READING THE NEXT BYTE LDB2 POINT OBB 0_H1 IWM0 POINT LDA7 DELAY INA NAZ FD_H1 'DELAY 'GOTO NEXT ONE LDA7 STOP SBA0 POINT NAZ NEXT '----------------------------------------------------------MEM TEST LDX7 100_H2 NXWRD: LDA7 0_H2 '------------------------TEST FOR 0 AND 1 STA4 LDA4 'TEST FOR ZERROS RW NAZ ERR1' READED WRONG OCA 'A=FF STA4 LDA4 'TEST FOR ONES RW OCA 'A=0 NAZ ERR1' READED WRONG '----------------------PRINT? TXB ALB 12_D1 ARB 12_D2 OCB 'COMPLEMENT: B = 0 ONLI IF LAST TETRADE WAS 1111 NBZ NOPRINT 'IF NOT - NO PRINTING 'PRINT NUM OF ERRORS LDA0 ECOUNT SBA7 A_H2 ' IF ECOUNT IS [0, 9], A WOULD BE NEGATIVE JAN ND'DIGIT FROM 0 TO 9 'ELSE IT IS HEX DIGITS SBA7 FFB5 ' IT IS -('A'+A) NAZ WPRINT ND: 'NORMAL DIGITS SBA7 FFC6 ' IT IS -('0'+A) WPRINT: OBA 0_H1 LDA7 DELAY INA NAZ FD_H1 'DELAY LDA7 DELAY LDB7 " " OBB 0_H1 INA NAZ FD_H1 NOPRINT: '-----------------------NEXT STIRNG? TXB ALB 8_D1 ' IF LAST BYTE OF X IS 0, B WOULD BE 0 NBZ NOSTRING 'IF NOT - NO NEW STRING LDA7 DELAY LDB7 0D_H2 OBB 0_H1 INA NAZ FD_H1 LDA7 DELAY LDB7 0A_H2 OBB 0_H1 INA NAZ FD_H1 'PRINT FIRST DIGIT OF X TXA LRA 12_D1 SBA7 A_H2 ' IF DIGIT IS [0, 9], A WOULD BE NEGATIVE JAN NDX1'DIGIT FROM 0 TO 9 'ELSE IT IS HEX DIGITS SBA7 FFB5 ' IT IS -('A'+A) NAZ DIGIT2 NDX1: 'NORMAL DIGITS SBA7 FFC6 ' IT IS -('0'+A) DIGIT2: LDA7 DELAY INA NAZ FD_H1 'DELAY 'PRINT SECOND DIGIT OF X TXA LLA 4_D1 LRA 12_D1 SBA7 A_H2 ' IF DIGIT IS [0, 9], A WOULD BE NEGATIVE JAN NDX2'DIGIT FROM 0 TO 9 'ELSE IT IS HEX DIGITS SBA7 FFB5 ' IT IS -('A'+A) NAZ DIGIT3 NDX2: 'NORMAL DIGITS SBA7 FFC6 ' IT IS -('0'+A) DIGIT3: LDA7 DELAY INA NAZ FD_H1 'DELAY LDA7 DELAY LDB7 " " OBB 0_H1 INA NAZ FD_H1 NOSTRING: AWX' NEXT WORD NXZ NXWRD 'IF NOT END OF MEMORY GOTO NEXT HLT 'END! '----------------------------------------------- ERR1: IWM0 ECOUNT HLT DISP: 0_B1 0D0A_H2 "MEMORY TEST STARTED..." 0D0A_H2 0D0A_H2 "ADDRESSES OF 16-BYTES BLOCKS:"0D0A_H2 " 0 1 2 3 4 5 6 7 8 9 A B C D E F" STOP: POINT: DISP ECOUNT: 0_H2