Uvodne menu zo Spektra 128k +2

Zdrojový kód


3      4000            *s
4      4000            ;==============================================================;
5      4000            ;== Verzia 02 == Menu 128+2 == 29.08.1989 == Busy software ====;
6      4000            ;==============================================================;
7      4000                   org  #8000
8      8000             
9      8000 213800     p      ld   hl,#38
10     8003 228d5c            ld   (23693),hl
11     8006 228f5c            ld   (23695),hl
12     8009 0618              ld   b,#18
13     800b cd440e            call #0e44
14     800e 3e02              ld   a,#02
15     8010 cd0116            call #1601
16     8013 ed5b7b5c          ld   de,(23675)
17     8017 215380            ld   hl,znak
18     801a 010800            ld   bc,#08
19     801d edb0              ldir
20     801f 115b80            ld   de,text
21     8022 017300            ld   bc,k-text
22     8025 cd3c20            call #203c
23     8028 3e38              ld   a,#38
24     802a 32905c            ld   (23696),a
25     802d 01386f            ld   bc,#6f38
26     8030 cde522            call #22e5
27     8033 010027            ld   bc,#2700
28     8036 1100ff            ld   de,#ff00
29     8039 cdba24            call #24ba
30     803c 016f00            ld   bc,#6f
31     803f 110100            ld   de,#01
32     8042 cdba24            call #24ba
33     8045 010027            ld   bc,#2700
34     8048 110001            ld   de,#0100
35     804b cdba24            call #24ba
36     804e 215827            ld   hl,#2758
37     8051 d9                exx
38     8052 c9                ret
39     8053             
40     8053 0103070f   znak   db   #01,#03,#07,#0f
41     8057 1f3f7fff          db   #1f,#3f,#7f,#ff
42     805b             
43     805b 1607       text   db   22,lin+0
44     805d 07110010          db   col,pap,0,ink,7
            07          
45     8062 13013132          db   #13,1,'128     '
            38202020    
            2020        
46     806c 100290            db   ink,2,144
47     806f 10061102          db   ink,6,pap,2,144
            90          
48     8074 10041106          db   ink,4,pap,6,144
            90          
49     8079 10051104          db   ink,5,pap,4,144
            90          
50     807e 10001105          db   ink,0,pap,5,144
            90          
51     8083 11002011          db   pap,0,' ',pap,5
            05          
52     8088 1608              db   22,lin+1
53     808a 07                db   col
54     808b 20546170          db   ' Tape loader  '
            65206c6f    
            61646572    
            2020        
55     8099 1609              db   22,lin+2
56     809b 071107            db   col,pap,7
57     809e 20313238          db   ' 128 BASIC    '
            20424153    
            49432020    
            2020        
58     80ac 160a              db   22,lin+3
59     80ae 07                db   col
60     80af 2043616c          db   ' Calculator   '
            63756c61    
            746f7220    
            2020        
61     80bd 160b              db   22,lin+4
62     80bf 07                db   col
63     80c0 20343820          db   ' 48 BASIC     '
            42415349    
            43202020    
            2020        
64     80ce            k
65     80ce            l      =    k-p
66     80ce            ink    =    #10
67     80ce            pap    =    #11
68     80ce            col    =    #07
69     80ce            lin    =    #07
70     80ce             
71     80ce                   end

 col    0007  *  ink    0010  *  k      80ce  *  l      00ce  *
 lin    0007  *  p      8000  *  pap    0011  *  text   805b  *
 znak   8053  *                                                

Bytes:206  labels:9  errors:0   


Popis
Tuzite po 128k Spektre a mate len 48k ? Tento program vam sice zo Spektra 48k nespravi 128, ale aspon vypise uvodne menu ktore sa objavi po resete na Spektre 128k +2.

Poznámky
Program, okrem toho ze vypise menu, zial uz nic ine nerobi...

Poslal
Busy