003
09.01.2013, 16:31 Uhr
Digitalmax
|
@Ralph
suchst Du soetwas ?
Wenn ja, wohin soll das geschickt werden?
Gruß Matthias
LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9
1 PFE: EQU 0FEH ;Port
2
0000 3 ORG 0
4
0000 F3 5 RESET: DI
0001 AF 6 XOR A
0002 11FFFF 7 LD DE,0FFFFH ;oberste mögliche Ramzelle
0005 C3CB11 8 JP RESET1
9
0008 2A5D5C 10 ERRAUS: LD HL,(CHADD) ;der Errorzeiger wird auf die
000B 225F5C 11 LD (XPTR),HL ;Eingabe gesetzt,welche nicht
000E 1843 12 JR ERROR ;mehr interpretiert werden kann
13
0010 C3F215 14 PRTOUT: JP AUSGA2 ;Buchstaben in Reg A ausdrucken
0013 15 DEFS 5
16
0018 2A5D5C 17 GETAKT: LD HL,(CHADD) ;holt aktuelles Zeichen aus
001B 7E 18 LD A,(HL) ;Programm oder bei Eingabe
001C CD7D00 19 AUSWER: CALL BASZCP ;Prüfen auf Stürzeichen
001F D0 20 RET NC ;druckbares Zeichen/ Basictoken
21
0020 CD7400 22 GETNXT: CALL NEXZEI ;holt nächstes Zeichen
0023 18F7 23 JR AUSWER
0025 24 DEFS 3
25
0028 C35B33 26 CALRUF: JP RECHNE ;zur Rechnerroutine
002B 27 DEFS 5
28
0030 C5 29 REST30: PUSH BC ;reserviere Speicherplatz im
0031 2A615C 30 LD HL,(WORKSP) ;Workspace, Anzahl = BC
0034 E5 31 PUSH HL
0035 C39E16 32 JP RESERV
33
34 ;Interrupt - Routine (Uhr und Tastatur)
35
0038 F5 36 INTERR: PUSH AF
0039 E5 37 PUSH HL
003A 2A785C 38 LD HL,(FRAMES) ;3 Byte Bildzähler (Uhr)
003D 23 39 INC HL ;Zeit in 1/50 Sekunden
003E 22785C 40 LD (FRAMES),HL
0041 7C 41 LD A,H
0042 B5 42 OR L
0043 2003 43 JR NZ,M0048
0045 FD3440 44 INC (IY+40H) ;wenn Null drittes Byte
45 ;inkrementieren
Dieser Beitrag wurde am 09.01.2013 um 16:36 Uhr von Digitalmax editiert. |
und ich hab die ja auch.. nur in DEUTSCH kommentiert eben nicht.