Micro­power

  

February 1982, Volume 2, Number 1











Page 13 of 37











2D3A 2D3E 2D44 FD22B70C FD22BB0C C9 0500 0510 0520 LD (£0CB7), IY LD (£0CBB), IY RET ; END OF TEXT ; END OF ARRAYS 0530 0540 0550 0560 0570 0580 0590 0600 ; ; @@@@@@@@@@@@@@@@@@@@ ; @@ STRING$(NN,CC) @@ ; @@@@@@@@@@@@@@@@@@@@ ; ; CREATES A STRING OF NN CHARACTERS ; WITH AN ASCII CODE CC ; 2D43 2D44 2D45 2D48 2D49 2D4C 2D4F 2D50 2D53 2D54 2D55 2D56 2D57 2D58 2D59 2D5A 2D5B 2D5E 2D5F 2D60 2D61 2D62 2D63 2D65 E1 23 CD5022 F5 CD4C15 CD5022 F5 CD5115 29 F1 47 F1 E5 4F 79 C5 CDAB1F C1 EB 70 23 0D 20FB C3D91F 0610 0620 0630 0640 0650 0660 0670 0680 0690 0700 0710 0720 0730 0740 0750 0760 0770 0780 0790 0800 0810 0820 0830 0840 STRING ST1 POP HL INC HL CALL IN255 PUSH AF CALL TSTCOM CALL IN255 PUSH AF CALL TSTCHR DEFB “) POP AF LD B,A POP AF PUSH HL LD C, A LD A, C PUSH BC CALL ASNSTR POP BC EX DE, HL LD (HL), B INC HL DEC C JR NZ, ST1 JP STREND ; GET NUMBER 0-255 ; GET COMMA ; GET CHAR. CODE ; SASVE CHARACTER ; TEST FOR ; CLOSING BRACKET ; RECOVER CHAR. ; PUT IN B ; RECOVER NUMBER ; SAVE TEXT POINTER ; PUT NUMBER IN C ; SAVE BC ; CREATE NEW STRING ; RECOVER BC ; SET HL TO START ; COPY CHARACTER ; INCREMENT POINTER ; LOOP ; RETURN TO BASIC 0850 0860 0870 0880 0890 ; ; @@@@@@@@@@@@@@@@@@@@@@@@@@@ ; @@ CONVERT TO LOWER CASE @@ ; @@@@@@@@@@@@@@@@@@@@@@@@@@@ ; 2D68 2D6A 2D6D 3E4C 32FE2D 180C 0900 0910 0920 LOWER LD A, “L LD (CONV), A JR CONVRT ; SET FLAG TO ; LOWER CASE 0930 0940 0950 0960 0970 ;; @@@@@@@@@@@@@@@@@@@@@@@@@@@ ; @@ CONVERT TO UPPER CASE @@ ; @@@@@@@@@@@@@@@@@@@@@@@@@@@ ; 2D6F 2D71 2D74 3E55 32FE2D 1805 0980 0990 1000 UPPER LD A, “U LD (CONV), A JR CONVRT ; SET FLAG TO ; UPPER CASE 1010 1020 1030 1040 1050 ;; @@@@@@@@@@@@@@@@@@@@ ; @@ REVERSE STRING @@ ; @@@@@@@@@@@@@@@@@@@@ ; 2D76 3E52 1060 REVRSE LD A, “R ; SET FLAG TO


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 13 of 37