
TFM's "Zeige Geschenk" Programm fr FutureOS auf CPC6128 oder 6128plus :-)

Das Programm bentigt 52 Bytes im Speicher - Version 3 :-)



  ARNOR Z80 ASSEMBLER version 1.15                              Page 001

00003  7F74  (7F74)                ORG   &7F74        ;Source Code 'GESCHENK.MAX' -> Assembliert in 52 Bytes
00004                              NOLIST             ;2024.12.12
00005  7F74                        WRITE "-RUN-ME."   ;Zeilen 52 / Code-Bytes 52
00006                     
00007                     
00008                     ;OS-Variablen und OS-Funktionen
00009                     
00010  7F74  (FF22)        OSRON_A EQU   &FF22
00011  7F74  (FBFA)        TERM_2  EQU   &FBFA
00012                     
00013                     
00014                     ;ZEIge GEschenk
00015                     
00016  7F74  69            ZEI_GE  LD    L,C
00016  7F75  CD FA FB              CALL  TERM_2
00017                     
00018  7F78  3E 0A                 LD    A,&0A
00019                     
00020  7F7A  21 9B 7F      ZGL     LD    HL,G_STR_2+&01
00021                     
00022  7F7D  77                    LD    (HL),A
00023  7F7E  2D                    DEC   L
00024  7F7F  CD FA FB              CALL  TERM_2
00025                     
00026  7F82  3E 13                 LD    A,&13
00027  7F84  18 F4                 JR    ZGL
00028                     
00029                     
00030                     ;Zeichenketten
00031                     
00032  7F86  02            G_STR_1 DB    &02          ;ROM Zeichensatz
00033                     
00034  7F87  0C                    DB    &0C          ;Cursor Heim
00035                     
00036  7F88  09                    DB    &09          ;Tabulator
00037                     
00038  7F89  5C 4F 2F 0E           DB    "\O/",&0E
00039                     
00040  7F8D  05 13 21              DB    &05,&13,"!"  ;Vertikal 19x "!" ausgeben
00041                     
00042  7F90  08 08                 DB    &08,&08      ;Cursor-Position +8
00043  7F92  05 13 21              DB    &05,&13,"!"  ;Vertikal 19x "!" ausgeben
00044                     
00045  7F95  08 08                 DB    &08,&08      ;Cursor-Position +8
00046  7F97  05 13 21              DB    &05,&13,"!"  ;Vertikal 19x "!" ausgeben
00047                     
00048  7F9A  1E 01 00      G_STR_2 DB    &1E,&01,&00
00049                     
00050  7F9D  2B 07 08 00           DB    "+",&07,&08,&00,"-"
       7FA1  2D 
00051  7FA2  2B 07 08 00           DB    "+",&07,&08,&00,"-"
       7FA6  2D 
00052  7FA7  2B                    DB    "+"
00053                     

Errors: 00000  Warnings: 00000  


