.TITLE MEMT ;TESTS 22-BIT MEMORY MANAGEMENT TO ADDRESS 4 MBYTES ;MOVE BYTES, INTEGERS, REAL, COMPLEX & MATRIX .MCALL .TLQ,.T10,.TB,.EXIT,.TF,.TZ,.TM,.TL8,.POKEM,.PEEKM .MCALL .PEEKB,.PEEKI,.PEEKF,.PEEKZ,.POKEB,.POKEI,.POKEF,.POKEZ,.CVSL8 A0=R0 ;MOVE 100. INTEGERS, STARTING AT ADDR=200000 GO: MOV #1,ADDR ;MAKE ADDR=200000 CLR ADDR+2 CLR R5 LOOP: .POKEI R5,ADDR ADD #2,ADDR+2 ;DOUBLE PRECISION ADD ADC ADDR INC R5 CMP R5,#100. BLT LOOP ;READ BACK 100. INTEGERS, STARTING AT ADDRESS 200000 MOV #1,ADDR CLR ADDR+2 MOV #100.,R5 LOOP2: .PEEKI ADDR,R0 ADD #2,ADDR+2 ADC ADDR .T10 R0 .TLQ SOB R5,LOOP2 ;-------------------------- MOVE REAL ------------------------------ BR HOP1 N1: .ASCIZ *337776* .EVEN HOP1: .CVSL8 #N1,ADDR .POKEF PI,ADDR ;MOVE PI TO 337776 ;READ THE NUMBER BACK .PEEKF ADDR,A0 ;READ FROM 337776 AND TYPE PI .TF A0 .TLQ ;MOVE COMPLEX (0.707,0.707) TO 357776--------------------------------- BR HOP3 N3: .ASCIZ *357776* .EVEN HOP3: .CVSL8 #N3,ADDR .POKEZ ROOT8,ADDR ;READ FROM 357776 AND TYPE COMPLEX NUMBER (0.707,0.707) .PEEKZ ADDR,TEMP .TZ TEMP .TLQ ;WRITE MATRIX OF 3 ROWS x 2 COLUMNS TO 367776------------------------ BR HOP4 N4: .ASCIZ *367776* .EVEN HOP4: .CVSL8 #N4,ADDR .POKEM #ARRAY,ADDR,#3,#2 ;READ AND TYPE MATRIX FROM 367776; SHOULD TYPE: 1 2 ; 3 4 ; 5 6 .PEEKM ADDR,#TEMP,#3,#2 ;READ MATRIX OF 3 ROWS x 2 COLUMNS .TM #TEMP,#3,#2 ;WRITE AN ASCII MESSAGE STARTING AT LOCATION 277776--------------------------- BR HOP2 N2: .ASCIZ *277776* .EVEN HOP2: .CVSL8 #N2,ADDR ;.CVSL8 MACRO CONVERTS STRING REPRESENTING AN ;OCTAL NUMBER INTO A 32-BIT INTEGER .POKEB #'H,ADDR ADD #1,ADDR+2 ;DO DOUBLE PRECISION INCREMENT ADC ADDR .POKEB #'E,ADDR ADD #1,ADDR+2 ADC ADDR .POKEB #'L,ADDR ADD #1,ADDR+2 ADC ADDR .POKEB #'L,ADDR ADD #1,ADDR+2 ADC ADDR .POKEB #'O,ADDR ;READ FROM 277776 AND TYPE HELLO .CVSL8 #N2,ADDR MOV #5,R5 LOOP5: .PEEKB ADDR,R1 .TB R1 ADD #1,ADDR+2 ADC ADDR SOB R5,LOOP5 .TLQ .EXIT ADDR: .BLKW 2 ;32-BIT ADDRESS ARRAY: .FLT2 1,2 .FLT2 3,4 .FLT2 5,6 PI: .FLT2 3.14159265 ROOT8: .FLT2 0.707,0.707 ;PRINCIPLE 8TH ROOT OF UNITY TEMP: .BLKW 12. .END GO