; LOAD STRING INTO ARRAY (ROW MAJOR), COUNT # OF CHARACTERS ; R3 IS NUMBER OF COLUMNS (CHARS) IN ARRAY ; R1 IS CIPHER INPUT ; STRNG LEA R0,NEWL PUTS ADD R3,R3,#0 ;if Decrypt flag is set, find negative of cipher BRz STRNG1 NOT R1,R1 ADD R1,R1,#1 STRNG1 LD R0,ADD3 ;ask for string PUTS LD R2,ADD9 ;load starting address of array, row0 LD R6,ADD9 LD R4,COLN ADD R6,R4,R6 ;starting address of array, row1 AND R3,R3,#0 ;R3 keeps track of # of char in array (column #) STRNG2 GETC LD R4,LFNEG ;check for enter key ADD R4,R4,R0 BRz PRINT OUT STR R0,R2,#0 ;store original input into first row of array JSR CHKA STORE STR R0,R6,#0 ;store en/decrypted char in next row, same column of array ADD R2,R2,#1 ;inc row0 array add. ADD R6,R6,#1 ;inc row1 array add. ADD R3,R3,#1 ;inc # of chars in array LD R4,NCOLN ADD R5,R4,R3 BRp SRY BR STRNG2
Thank you.

New Topic/Question
Reply



MultiQuote



|