Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
SEITE 142 <br />
BASIC 1Z-013B V1.0A <br />
Zeichen im Accu auf Drucker ausgeben <br />
Wenn Steuerzeichen ~ in richtges Zeichen für Plotter umsetzen <br />
8008 1F48 08 EX AF.AF' ASCII-ZEICHEN HOLEN <br />
8009 IF49 FE 11 CP 11 Cursor runter ? <br />
8010 <br />
8011 IF4B OE 09 LD C. 09 I CODE SCHRIFTBREITE <br />
8012 I VERKLE I NERN <br />
8013 IF4D 28 ID JR Z. ID ~ IF6CH ZEICHEN AN DRUCKER AUSGEBEN <br />
8014 <br />
8015 IF4F FE 12 CP 12 Cursor hoch <br />
8016 <br />
8017 IF51 OE OB LD C, OB I CODE SCHRIFTBREITE <br />
8018 I VERGRöSSERN <br />
8019 IF53 28 17 JR Z, 17 + IF6CH ZEICHEN AN DRUCKER AUSGEBEN <br />
8020 <br />
8021 IF55 FE 15 CP 15 Home ? <br />
8022 <br />
8023 IF57 OE OF LD C. OF CODE SEITENVORSCHUB<br />
8024 <br />
8025 IF59 28 11 JR Z, 11 ~ IF6CH ZEICHEN AN DRUCKER AUSGEBEN <br />
8026 <br />
8027 IF5B FE 16 CP 16 Clear ? <br />
8028 <br />
8029 IF5D C2 78 16 JP NZ, 1678 I NICHT Clear ~ <br />
8030 I ZEICHEN IM ACCU AUSGEBEN <br />
8031 <br />
8032 1F60 3E OC LD A. OC I CODE BREITSCHRIFT <br />
8033 I AUFHEBEN <br />
8034 IF62 CD 78 16 CALL 1678 IASCII IM ACCU AUF DRUCKER <br />
8035 I AUSGEBEN <br />
8036 <br />
8037 IF65 3E OA LD A, OA ; CODE ZEILENVORSCHUB <br />
8038 · <br />
8039 IF67 CD 78 16 CALL 1678 IASCII IM ACCU AUF DRUCKER <br />
8040 I AUSGEBEN <br />
8041 <br />
8042 1F6A OE 03 LD C, 03 CODE ZEILENRüCKSCHUB <br />
8043 <br />
8044 IF6C 79 LD A,C UMGESETZTES ZEICHEN HOLEN <br />
8045 IF6D C3 78 16 JP 1678 , I ZEICHEN IM ACCU AUF <br />
8046 I DRUCKER AUSGEBEN <br />
8047 <br />
Befehl PRINT TAB<br />
8048 IF70 3E 20 LD A, 20 ; Spac6! <br />
8049 <br />
80501F72 32 B8 1F LD (lFB8),A ; I ALS AUSZUGEBENDES <br />
8051 I ZEICHEN MERKEN <br />
8052 <br />
8053 1F75 3E 28 LD A, 28 140 (MAXIMALE SPALTEN<br />
8054 I NR. AUF VIDEO) <br />
8055 1F77 32 A5 IF LD (lFA5).A • IN ROUTINE EINTRAGEN <br />
8~6<br />
8057 <br />
8058 IF7A 3A 19 18 LD A. (1819) AUSGABE - FLAG <br />
8059 <br />
8060 <br />
8061 1F7D B7 OR A ; AUSGABE AUF BILDSCHIRM ? <br />
8062 IF7E 28 18 JR Z, 18 ~ 1F98H JA + PRINT TAB AUF VIDEO <br />
BASXC 1Z<br />
8063 j<br />
8064 IF80 FE 54 CP 54<br />
8065 <br />
8066 IF82 28 OA JR Z. O<br />
8067 <br />
8068 IF84 3E AO LD A. A<br />
8069<br />
8070 IF86 32 A5 IF LD (lFA<br />
8071<br />
8072 <br />
8073 1F89 3A BE 16 LD A. (1<br />
8074 <br />
8075 <br />
8076 IF8C 18 12 JR 12<br />
8077<br />
8078 1F8E 3E FF LD A. F<br />
8079<br />
8080 IF90 32 A5 IF LD (lFA<br />
8081 <br />
8082 <br />
8083 IF93 CD 4E 46 CALL 46<br />
8084<br />
8085 <br />
8086 IF96 18 08 JR 08<br />
8087<br />
8088 IF98 3 E 13 LD A. 1<br />
8089 <br />
8090 IF9A 32 B8 IF LD (lFB<br />
8091<br />
8092 <br />
8093 IF9D 3A 54 00 LD A. (0<br />
8094 <br />
8095 <br />
8096 IFAO F5 PUSH AF<br />
8097 IFAl CD 4E 20 CALL 20<br />
8098<br />
8099 <br />
8100 IFA4 FE 28 CP 28<br />
8101<br />
8102 IFA6 38 05 JR C. 0<br />
8103 <br />
8104 IFA8 3E 03 LD A. 0<br />
8105 <br />
8106 IFAA C3 08 21 JP 2108<br />
8107 <br />
8108 <br />
errechnen wieviel Zeichen f<br />
und Zeichen ausgeben <br />
8109 IFAD Dl POP OE<br />
8110 IFAE 92 SUB 0<br />
8111 IFAF OA E2 lE JP C. 1<br />
8112<br />
8113<br />
8114 IFB2 B7 OR A<br />
8115 IFB3 CA E2 lE JP Z. 1