LC-80 Schlange 2000 DD 21 00 23 LD IX, 2300 Indexregister definieren 2004 06 10 LD B, 10 Lade B mit 10 2006 3A 00 22 LD A, 2200 A mit Inhalt von 2100 laden 2009 32 00 23 LD 2300, A 2300 mit dem Inhalt von A laden (letztes Segment Null setzen) 200C 3A 01 22 LD A,2201 200F 32 05 23 LD 2305, A erstes Segment ansteuern 2012 CD 83 04 CALL DAK2 DAK2 laden 2015 10 FB DJNZ Jump wenn B nicht 0 ist 2017 06 10 LD B, 10 Lade B mit 10 2019 3A 02 22 LD A, 2202 201C 32 05 23 LD 2305, A 201F 3A 04 22 LD A, 2204 2022 32 04 23 LD 2304, A 2025 CD 83 04 CALL DAK2 2028 10 FB DJNZ 202A 06 10 LD B, 10 202C 3A 04 22 LD A, 2204 202F 32 05 23 LD 2305, A 2032 3A 02 22 LD A, 2202 2035 32 04 23 LD 2304, A 2038 CD 83 04 CALL DAK2 203B 10 FB DJNZ 203D 06 10 LD B, 10 203F 3A 00 22 LD A, 2200 //Segment 1 ist nun komplett aus 2042 32 05 23 LD 2305, A 2045 3A 01 22 LD A, 2201 2048 32 04 23 LD 2304, A 204B CD 83 04 CALL DAK2 204E 10 FB DJNZ 2050 06 10 LD B, 10 2052 3A 05 22 LD A, 2205 //Segment 3 wird bedient 2055 32 04 23 LD 2304, A 2058 3A 03 22 LD A, 2203 205B 32 03 23 LD 2303, A 205E CD 83 04 CALL DAK2 2061 10 FB DJNZ 2063 06 10 LD B, 10 2065 3A 03 22 LD A, 2203 2068 32 04 23 LD 2304, A 206B 3A 05 22 LD A, 2205 206E 32 03 23 LD 2303, A 2071 CD 83 04 CALL DAK2 2074 10 FB DJNZ 2076 06 10 LD B, 10 2078 3A 00 22 LD A, 2200 207B 32 04 23 LD 2304, A 207E 3A 01 22 LD A, 2201 2081 32 03 23 LD 2303, A 2084 CD 83 04 CALL DAK2 2087 10 FB DJNZ 2089 06 10 LD B, 10 208B 3A 02 22 LD A, 2202 //Segment 2 wird bedient 208E 32 03 23 LD 2303, A 2091 3A 04 22 LD A, 2204 2094 32 02 23 LD 2302, A 2097 CD 83 04 CALL DAK2 209A 10 FB DJNZ 209C 06 10 LD B, 10 209E 3A 04 22 LD A, 2204 20A1 32 03 23 LD 2303, A 20A4 3A 02 22 LD A, 2202 20A7 32 02 23 LD 2302, A 20AA CD 83 04 CALL DAK2 20AD 10 FB DJNZ 20AF 06 10 LD B, 10 20B1 3A 00 22 LD A, 2200 20B4 32 03 23 LD 2303, A 20B7 3A 01 22 LD A, 2201 20BA 32 02 23 LD 2302, A 20BD CD 83 04 CALL DAK2 20C0 10 FB DJNZ 20C2 06 10 LD B, 10 20C4 3A 05 22 LD A, 2205 //Segment 1 wird bedient 20C7 32 02 23 LD 2302, A 20CA 3A 03 22 LD A, 2203 20CD 32 01 23 LD 2301, A 20D0 CD 83 04 CALL DAK2 20D3 10 FB DJNZ 20D5 06 10 LD B, 10 20D7 3A 03 22 LD A, 2203 20DA 32 02 23 LD 2302, A 20DD 3A 05 22 LD A, 2205 20E0 32 01 23 LD 2301, A 20E3 CD 83 04 CALL DAK2 20E6 10 FB DJNZ 20E8 06 10 LD B, 10 20EA 3A 00 22 LD A, 2200 20ED 32 02 23 LD 2302, A 20F0 3A 01 22 LD A, 2201 20F3 32 01 23 LD 2301, A 20F6 CD 83 04 CALL DAK2 20F9 10 FB DJNZ 20FB 06 10 LD B, 10 20FD 3A 02 22 LD A, 2202 //Segment 0 wird bedient 2100 32 01 23 LD 2301, A 2103 3A 04 22 LD A, 2204 2106 32 00 23 LD 2300, A 2109 CD 83 04 CALL DAK2 210C 10 FB DJNZ 210E 06 10 LD B, 10 2110 3A 04 22 LD A, 2204 2113 32 01 23 LD 2301, A 2116 3A 02 22 LD A, 2202 2119 32 00 23 LD 2300, A 211C CD 83 04 CALL DAK2 211F 10 FB DJNZ 2121 06 10 LD B, 10 2123 3A 00 22 LD A, 2200 2126 32 01 23 LD 2301, A 2129 3A 01 22 LD A, 2201 212C 32 00 23 LD 2300, A 212F CD 83 04 CALL DAK2 2132 10 FB DJNZ 2134 06 10 LD B, 10 2136 3A 02 22 LD A, 2202 //Segment 5 wird wieder bedient 2139 32 00 23 LD 2300, A 213C 3A 03 22 LD A, 2201 213F 32 05 23 LD 2305, A 2142 CD 83 04 CALL DAK2 2145 10 FB DJNZ 2147 06 10 LD B, 10 2149 3A 04 22 LD A, 2204 214C 32 00 23 LD 2300, A 214F 3A 05 22 LD A, 2205 2152 32 05 23 LD 2305, A 2155 CD 83 04 CALL DAK2 2158 10 FB DJNZ 215A E9 04 20 JMP, 2004 Springen zum Programmanfang ? Schleife läuft durch 215D 76 ENDE 2200 00 kein Segment leuchtet 2201 8C alle Segmente leuchten 2202 88 die unteren beiden leuchten 2203 04 das obere leuchtet 2204 80 das untere leuchtet 2205 0C die oberen beiden leuchten