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. |