release under GPL license .
see COPYING file .

Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    1


d:light.s

Location Object              Type  Line Source
                             A        1 ;************************************************************************
                             A        2 ;* Microcontroller Z8 Z86E08 2K programm small lightshow in 11 bits     *
                             A        3 ;* Made by Thomas Scherrer-Tangen.      mailto:tscherrer@cybernet.dk    *
                             A        4 ;* Date 4/4 1996                                                        *
                             A        5 ;*         The 11 LEDs shuld be located in this order:                  *
                             A        6 ;*   Bits:       2 1 0 7 6 5 4 3 2 1 0                                  *
                             A        7 ;*   Port nr:    0 0 0 2 2 2 2 2 2 2 2                                  *
                             A        8 ;*   Pins:  13,12,11,4,3,2,1,18,17,16,15                                *
                             A        9 ;* My Crystal is 4.19 MHz, but use what you have and edit the divider   *
                             A       10 ;* Sorry some labels is in Danish ;)                                    *
                             A       11 ;************************************************************************
                   R12       A       12 POINTER_HI      .equ    R12                     ; High first, 8 bit 
                   R13       A       13 POINTER_LO      .equ    R13                     ; Low second, 8 bit
                   RR12      A       14 POINTER         .equ    RR12                    ; The 16bit table pointer
                             A       15 
                             A       16 
                             A       17                 .ORG 000CH                      ; reset adr.
0000000C 8F                  A       18 INIT:           DI                              ; dissable all interrupts
0000000D E6 FD 0F            A       19                 LD      RP,#00001111B           ; point to
00000010 0C FE               A       20                 LD      R0,#11111110B           ; pcon reg
                             A       21              ;  LD      R11,#00000001B          ; crystal div by 2x16
00000012 BC 00               A       22                 LD      R11,#00000000B          ; crystal div by 2 (default)
                             A       23              ;  LD      R11,#00000010B          ; crystal div by 0
                             A       24                
00000014 31 10               A       25                 SRP     #10h                    ; register bank 1
00000016 E6 FF 7F            A       26                 LD      SPL,#7FH                ; this stack is ok for all Z8
00000019 E6 F7 01            A       27                 LD      P3M,#00000001B
0000001C B0 F6               A       28                 CLR     P2M                     ; PORT2 OUT 
0000001E E6 F8 04            A       29                 LD     P01M,#00000100B          ; PORT0 OUT active
                             A       30 
                             A       31 
                             A       32 ;************************************************************************
                             A       33 ;               HERE IS MAIN PROGRAM                                    *
                             A       34 ;************************************************************************
00000021 FC 0F               A       35 IGEN:           LD      R15,#15
00000023 D6 01 62            A       36                 CALL    MODMIDT2
00000026 FC 05               A       37                 LD      R15,#5
00000028 6C 04               A       38                 LD      R6,#4
0000002A D6 01 72            A       39 IGEN1:          CALL    SINUS
0000002D FE                  A       40                 INC     R15
0000002E 6A FA               A       41                 DJNZ    R6,IGEN1
                             A       42                    
00000030 FC 37               A       43                 LD      R15,#55
00000032 D6 01 6A            A       44                 CALL    FRAMIDT2
00000035 D6 01 A0            A       45                 CALL    FADE_OP
00000038 D6 01 92            A       46                 CALL    FADER
0000003B D6 01 92            A       47                 CALL    FADER
0000003E D6 01 92            A       48                 CALL    FADER
00000041 D6 01 AE            A       49                 CALL    FADE_NED
                             A       50 
00000044 FC 0F               A       51                 LD      R15,#15
00000046 D6 01 5A            A       52                 CALL    L0BVEN_ALL
00000049 FC 0B               A       53                 LD      R15,#11
                             A       54 
0000004B D6 01 82            A       55                 CALL    FRA_ALL
0000004E D6 01 8A            A       56                 CALL    TIL_ALL
00000051 D6 01 82            A       57                 CALL    FRA_ALL
                             A       58 
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    2


d:light.s

Location Object              Type  Line Source
00000054 FC 08               A       59                 LD      R15,#8
00000056 6C 04               A       60                 LD      R6,#4
00000058 D6 01 7A            A       61 IGEN1A:         CALL    FRAMTIL
0000005B 00 EF               A       62                 DEC     R15
0000005D 6A F9               A       63                 DJNZ    R6,IGEN1A
0000005F FC 1E               A       64                 LD      R15,#30
00000061 D6 01 6A            A       65                 CALL    FRAMIDT2
                             A       66 
00000064 FC 5A               A       67                 LD      R15,#90
00000066 D6 01 22            A       68                 CALL    START3PRIK
00000069 FC 3C               A       69                 LD      R15,#60
0000006B D6 01 32            A       70                 CALL    PRIK3_VEN
0000006E FC 1E               A       71                 LD      R15,#30
00000070 D6 01 32            A       72                 CALL    PRIK3_VEN
00000073 D6 01 32            A       73                 CALL    PRIK3_VEN
00000076 D6 01 32            A       74                 CALL    PRIK3_VEN
00000079 D6 01 3A            A       75                 CALL    PRIK3_SKIFT
0000007C D6 01 3A            A       76                 CALL    PRIK3_SKIFT
0000007F D6 01 3A            A       77                 CALL    PRIK3_SKIFT
00000082 D6 01 42            A       78                 CALL    PRIK3_K0R
00000085 D6 01 42            A       79                 CALL    PRIK3_K0R
00000088 D6 01 42            A       80                 CALL    PRIK3_K0R
0000008B FC 32               A       81                 LD      R15,#50
0000008D D6 01 32            A       82                 CALL    PRIK3_VEN
00000090 FC 5A               A       83                 LD      R15,#90
00000092 D6 01 2A            A       84                 CALL    SLUT3PRIK
                             A       85 
00000095 FC 1E               A       86                 LD      R15,#30
00000097 D6 01 02            A       87                 CALL    JIM_INTRO
0000009A FC 14               A       88                 LD      R15,#20
0000009C D6 01 12            A       89                 CALL    JIM_LOOP1
0000009F FC 0A               A       90                 LD      R15,#10
000000A1 6C 04               A       91                 LD      R6,#4
000000A3 D6 01 12            A       92 IGEN2A:         CALL    JIM_LOOP1
000000A6 6A FB               A       93                 DJNZ    R6,IGEN2A
000000A8 FC 0E               A       94                 LD      R15,#14
000000AA 6C 06               A       95                 LD      R6,#6
000000AC D6 01 1A            A       96 IGEN2B:         CALL    JIM_LOOP_SINE
000000AF 6A FB               A       97                 DJNZ    R6,IGEN2B
000000B1 D6 01 12            A       98                 CALL    JIM_LOOP1
000000B4 D6 01 1A            A       99                 CALL    JIM_LOOP_SINE
000000B7 D6 01 12            A      100                 CALL    JIM_LOOP1
000000BA D6 01 1A            A      101                 CALL    JIM_LOOP_SINE
                             A      102 
000000BD FC 28               A      103                 LD      R15,#40
000000BF D6 01 0A            A      104                 CALL    JIM_OUTRO
000000C2 FC C8               A      105                 LD      R15,#200
000000C4 D6 02 0B            A      106                 CALL    PAUSE
                             A      107 
000000C7 FC 0F               A      108                 LD      R15,#15
000000C9 D6 01 4A            A      109                 CALL    L0BH0J2
000000CC D6 01 52            A      110                 CALL    L0BVEN2
000000CF 6C 06               A      111                 LD      R6,#6
000000D1 FC 09               A      112                 LD      R15,#9
000000D3 D6 01 4A            A      113 IGEN2:          CALL    L0BH0J2
000000D6 D6 01 52            A      114                 CALL    L0BVEN2
000000D9 00 EF               A      115                 DEC     R15
000000DB 6A F6               A      116                 DJNZ    R6,IGEN2
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    3


d:light.s

Location Object              Type  Line Source
000000DD 6C 03               A      117                 LD      R6,#3
000000DF D6 01 4A            A      118 IGEN3:          CALL    L0BH0J2
000000E2 D6 01 52            A      119                 CALL    L0BVEN2
000000E5 6A F8               A      120                 DJNZ    R6,IGEN3
                             A      121 
                             A      122 
000000E7 FC 05               A      123                 LD      R15,#5
000000E9 D6 01 62            A      124                 CALL    MODMIDT2
000000EC D6 01 6A            A      125                 CALL    FRAMIDT2
000000EF FC 08               A      126                 LD      R15,#8
000000F1 D6 01 62            A      127                 CALL    MODMIDT2
000000F4 D6 01 6A            A      128                 CALL    FRAMIDT2
000000F7 FC 0C               A      129                 LD      R15,#12
000000F9 D6 01 62            A      130                 CALL    MODMIDT2
000000FC D6 01 6A            A      131                 CALL    FRAMIDT2
000000FF 8D 00 21            A      132                 JP      IGEN
                             A      133 
                             A      134 
                             A      135 ;************************************************************************
                             A      136 ; THISE SUBS IS MADE TO SAVE SOME BYTES, COZ THIS CODE IS USED ALOT.
                             A      137 ; SINCE YOU CAN'T LOAD A 16BIT REGISTER DIRECT, I LOAD IT IN 8 BIT-
                             A      138 ; WITH THE COMMAND #^HB FOR HIGH BYTE, AND SO ON. GOT IT??
                             A      139 
00000102 CC 02               A      140 JIM_INTRO:      LD      POINTER_HI,#HIGH D_JIM_INTRO
00000104 DC 44               A      141                 LD      POINTER_LO,#LOW  D_JIM_INTRO
00000106 D6 01 BC            A      142                 CALL    TABELPLAY
00000109 AF                  A      143                 RET
                             A      144 
0000010A CC 02               A      145 JIM_OUTRO:      LD      POINTER_HI,#HIGH D_JIM_OUTRO
0000010C DC 55               A      146                 LD      POINTER_LO,#LOW  D_JIM_OUTRO
0000010E D6 01 BC            A      147                 CALL    TABELPLAY
00000111 AF                  A      148                 RET
                             A      149 
00000112 CC 02               A      150 JIM_LOOP1:      LD      POINTER_HI,#HIGH D_JIM_LOOP1
00000114 DC 7A               A      151                 LD      POINTER_LO,#LOW  D_JIM_LOOP1
00000116 D6 01 BC            A      152                 CALL    TABELPLAY
00000119 AF                  A      153                 RET
                             A      154 
0000011A CC 02               A      155 JIM_LOOP_SINE:  LD      POINTER_HI,#HIGH D_JIM_LOOP_SINE
0000011C DC 9F               A      156                 LD      POINTER_LO,#LOW  D_JIM_LOOP_SINE
0000011E D6 01 BC            A      157                 CALL    TABELPLAY
00000121 AF                  A      158                 RET
                             A      159 
00000122 CC 02               A      160 START3PRIK:     LD      POINTER_HI,#HIGH D_START3PRIK
00000124 DC 15               A      161                 LD      POINTER_LO,#LOW  D_START3PRIK
00000126 D6 01 BC            A      162                 CALL    TABELPLAY
00000129 AF                  A      163                 RET
                             A      164 
0000012A CC 02               A      165 SLUT3PRIK:      LD      POINTER_HI,#HIGH D_SLUT3PRIK
0000012C DC 1E               A      166                 LD      POINTER_LO,#LOW  D_SLUT3PRIK
0000012E D6 01 BC            A      167                 CALL    TABELPLAY
00000131 AF                  A      168                 RET
                             A      169 
00000132 CC 02               A      170 PRIK3_VEN:      LD      POINTER_HI,#HIGH D_3PRIK_VEN
00000134 DC 27               A      171                 LD      POINTER_LO,#LOW  D_3PRIK_VEN
00000136 D6 01 BC            A      172                 CALL    TABELPLAY
00000139 AF                  A      173                 RET
                             A      174 
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    4


d:light.s

Location Object              Type  Line Source
0000013A CC 02               A      175 PRIK3_SKIFT:    LD      POINTER_HI,#HIGH D_3PRIK_SKIFT
0000013C DC 30               A      176                 LD      POINTER_LO,#LOW  D_3PRIK_SKIFT
0000013E D6 01 BC            A      177                 CALL    TABELPLAY
00000141 AF                  A      178                 RET
                             A      179 
00000142 CC 02               A      180 PRIK3_K0R:      LD      POINTER_HI,#HIGH D_3PRIK_K0R
00000144 DC 3B               A      181                 LD      POINTER_LO,#LOW  D_3PRIK_K0R
00000146 D6 01 BC            A      182                 CALL    TABELPLAY
00000149 AF                  A      183                 RET
                             A      184 
0000014A CC 02               A      185 L0BH0J2:        LD      POINTER_HI,#HIGH D_L0BH0J2
0000014C DC C4               A      186                 LD      POINTER_LO,#LOW  D_L0BH0J2
0000014E D6 01 BC            A      187                 CALL    TABELPLAY
00000151 AF                  A      188                 RET
                             A      189 
00000152 CC 02               A      190 L0BVEN2:        LD      POINTER_HI,#HIGH D_L0BVEN2
00000154 DC DD               A      191                 LD      POINTER_LO,#LOW  D_L0BVEN2
00000156 D6 01 BC            A      192                 CALL    TABELPLAY
00000159 AF                  A      193                 RET
                             A      194 
0000015A CC 03               A      195 L0BVEN_ALL:     LD      POINTER_HI,#HIGH D_L0BVEN_ALL
0000015C DC 16               A      196                 LD      POINTER_LO,#LOW  D_L0BVEN_ALL
0000015E D6 01 BC            A      197                 CALL    TABELPLAY
00000161 AF                  A      198                 RET
                             A      199 
00000162 CC 02               A      200 MODMIDT2:       LD      POINTER_HI,#HIGH D_MODMIDT2
00000164 DC F6               A      201                 LD      POINTER_LO,#LOW  D_MODMIDT2
00000166 D6 01 BC            A      202                 CALL    TABELPLAY
00000169 AF                  A      203                 RET
                             A      204 
0000016A CC 03               A      205 FRAMIDT2:       LD      POINTER_HI,#HIGH D_FRAMIDT2
0000016C DC 05               A      206                 LD      POINTER_LO,#LOW  D_FRAMIDT2
0000016E D6 01 BC            A      207                 CALL    TABELPLAY
00000171 AF                  A      208                 RET
                             A      209 
00000172 CC 04               A      210 SINUS:          LD      POINTER_HI,#HIGH D_SINUS
00000174 DC 26               A      211                 LD      POINTER_LO,#LOW D_SINUS
00000176 D6 01 BC            A      212                 CALL    TABELPLAY
00000179 AF                  A      213                 RET
                             A      214 
0000017A CC 03               A      215 FRAMTIL:        LD      POINTER_HI,#HIGH D_FREMTIL
0000017C DC CF               A      216                 LD      POINTER_LO,#LOW  D_FREMTIL
0000017E D6 01 BC            A      217                 CALL    TABELPLAY
00000181 AF                  A      218                 RET
                             A      219 
00000182 CC 03               A      220 FRA_ALL:        LD      POINTER_HI,#HIGH D_FRA_ALL
00000184 DC A1               A      221                 LD      POINTER_LO,#LOW  D_FRA_ALL
00000186 D6 01 BC            A      222                 CALL    TABELPLAY
00000189 AF                  A      223                 RET
                             A      224 
0000018A CC 03               A      225 TIL_ALL:        LD      POINTER_HI,#HIGH D_TIL_ALL
0000018C DC B8               A      226                 LD      POINTER_LO,#LOW  D_TIL_ALL
0000018E D6 01 BC            A      227                 CALL    TABELPLAY
00000191 AF                  A      228                 RET
                             A      229 
                             A      230 
                             A      231 ;***************************************************************************
                             A      232 
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    5


d:light.s

Location Object              Type  Line Source
00000192 1C 0A               A      233 FADER:          LD      R1,#10         ; NUMBER SAMPLES IN TABEL PR. VALUE.
00000194 3C 50               A      234                 LD      R3,#80         ; NUMBER REPEAT THE SAME LEVEL (SPEED)
00000196 28 E3               A      235                 LD      R2,R3
00000198 CC 04               A      236                 LD      POINTER_HI,#HIGH D_FADER
0000019A DC 7B               A      237                 LD      POINTER_LO,#LOW  D_FADER
0000019C D6 01 D5            A      238                 CALL    FADERPLAY
0000019F AF                  A      239                 RET
                             A      240 
000001A0 1C 0A               A      241 FADE_OP:        LD      R1,#10
000001A2 2C 96               A      242                 LD      R2,#150
000001A4 38 E2               A      243                 LD      R3,R2
000001A6 CC 05               A      244                 LD      POINTER_HI,#HIGH D_FADE_OP
000001A8 DC 94               A      245                 LD      POINTER_LO,#LOW  D_FADE_OP
000001AA D6 01 D5            A      246                 CALL    FADERPLAY
000001AD AF                  A      247                 RET
                             A      248 
000001AE 1C 0A               A      249 FADE_NED:       LD      R1,#10
000001B0 2C FA               A      250                 LD      R2,#250
000001B2 38 E2               A      251                 LD      R3,R2
000001B4 CC 06               A      252                 LD      POINTER_HI,#HIGH D_FADE_NED
000001B6 DC 21               A      253                 LD      POINTER_LO,#LOW  D_FADE_NED
000001B8 D6 01 D5            A      254                 CALL    FADERPLAY
000001BB AF                  A      255                 RET
                             A      256 
                             A      257 ;***************************************************************************
                             A      258 ; HERE IS A SIMPLE TABLE LOOK UP.
000001BC C2 EC               A      259 TABELPLAY:      LDC     R14,@POINTER   ; GET DATA FROM "POINTER" LOCATION.
000001BE A6 EE FF            A      260                 CP      R14,#0FFH      ; TJECK IF END CARAKTER.
000001C1 6D 01 D4            A      261                 JP      Z,TABEL_END
000001C4 E9 00               A      262                 LD      P0,R14         ; OUTPUT THE LOW DATA.
000001C6 A0 EC               A      263                 INCW    POINTER        ; POINT TO HIGH LOCATION
000001C8 C2 EC               A      264                 LDC     R14,@POINTER   ; GET DATA
000001CA E9 02               A      265                 LD      P2,R14         ; OUTPUT THE HIGH DATA.
000001CC A0 EC               A      266                 INCW    POINTER
000001CE D6 02 0B            A      267                 CALL    PAUSE          ; SOME DALAY
000001D1 8D 01 BC            A      268                 JP      TABELPLAY
000001D4 AF                  A      269 TABEL_END:      RET
                             A      270 
                             A      271 
                             A      272 ;***************************************************************************
                             A      273 ; HERE IS THE FADER PLAYER, IT CAN MODULATE THE POWER IN THE LEDS-
                             A      274 ; FOR VARIABLE INTENSITY. THIS LOOKS REALY COOL.
                             A      275 
000001D5 C2 EC               A      276 FADERPLAY:      LDC     R14,@POINTER   ; GET DATA FROM "POINTER"
000001D7 A6 EE FF            A      277                 CP      R14,#0FFH      ; TJECK END?
000001DA 6D 01 D4            A      278                 JP      Z,TABEL_END
000001DD E9 00               A      279                 LD      P0,R14         ; OUT DATA LOW BITS
000001DF A0 EC               A      280                 INCW    POINTER        ; NEXT
000001E1 C2 EC               A      281                 LDC     R14,@POINTER   ; GET DATA
000001E3 E9 02               A      282                 LD      P2,R14         ; OUT DATA HIGH BITS
                             A      283 
000001E5 4C 1E               A      284                 LD      R4,#30         ; SMALL DELAY
000001E7 FF                  A      285 PA4LOOP:        NOP
000001E8 4A FD               A      286                 DJNZ    R4,PA4LOOP
                             A      287 
000001EA A0 EC               A      288                 INCW    POINTER        ; NEXT
000001EC 00 E1               A      289                 DEC     R1
000001EE 6D 01 F9            A      290                 JP      Z,FADER_IGEN   ; 10 * PULSES FROM TABEL ?
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    6


d:light.s

Location Object              Type  Line Source
000001F1 00 E2               A      291                 DEC     R2
000001F3 6D 02 04            A      292                 JP      Z,FADER_NEXT
000001F6 8D 01 D5            A      293                 JP      FADERPLAY
                             A      294 
000001F9 0C 14               A      295 FADER_IGEN:     LD      R0,#20         ; GO BACK TO -20 POSITION IN TABLE.
000001FB 80 EC               A      296 FADERLP:        DECW    POINTER        ; DECRESE TABLE POINTER
000001FD 0A FC               A      297                 DJNZ    R0,FADERLP
                             A      298 
000001FF 1C 0A               A      299                 LD      R1,#10         ; NEW 10 TIMES TABLE LOOKUP
00000201 8D 01 D5            A      300                 JP      FADERPLAY
00000204 1C 0A               A      301 FADER_NEXT:     LD      R1,#10         ; NUMBER SAMPLES PR. LEVEL
00000206 28 E3               A      302                 LD      R2,R3          ; GET NUMBER REPEAT THE SAME LEVEL.
00000208 8D 01 D5            A      303                 JP      FADERPLAY
                             A      304 
                             A      305 ;**** PAUSE SUB ************************************************************
                             A      306 
0000020B 58 EF               A      307 PAUSE:          LD      R5,R15          ; GET DELAY VALUE FROM R15
0000020D 4C FA               A      308 PAUSELP:        LD      R4,#250
0000020F FF                  A      309 PAUSELPP:       NOP
00000210 4A FD               A      310                 DJNZ    R4,PAUSELPP
00000212 5A F9               A      311                 DJNZ    R5,PAUSELP
00000214 AF                  A      312                 RET
                             A      313 
                             A      314 ;****  HERE IS THE LIGHTSHOW DATA ******************************************
                             A      315 
00000215                     A      316 D_START3PRIK:
00000215 00 00               A      317  .BYTE 00000000B,00000000B
00000217 00 02               A      318  .BYTE 00000000B,00000010B 
00000219 00 22               A      319  .BYTE 00000000B,00100010B 
0000021B 02 22               A      320  .BYTE 00000010B,00100010B 
0000021D FF                  A      321  .BYTE 11111111B           ; END IS FFh
                             A      322 
0000021E                     A      323 D_SLUT3PRIK:
0000021E 02 22               A      324  .BYTE 00000010B,00100010B 
00000220 02 20               A      325  .BYTE 00000010B,00100000B 
00000222 02 00               A      326  .BYTE 00000010B,00000000B 
00000224 00 00               A      327  .BYTE 00000000B,00000000B
00000226 FF                  A      328  .BYTE 11111111B           ; END IS FFh
                             A      329 
00000227                     A      330 D_3PRIK_VEN:
00000227 04 44               A      331  .BYTE 00000100B,01000100B 
00000229 00 88               A      332  .BYTE 00000000B,10001000B 
0000022B 01 11               A      333  .BYTE 00000001B,00010001B 
0000022D 02 22               A      334  .BYTE 00000010B,00100010B 
0000022F FF                  A      335  .BYTE 11111111B           ; END IS FFh
                             A      336 
00000230                     A      337 D_3PRIK_SKIFT:
00000230 04 46               A      338  .BYTE 00000100B,01000110B
00000232 00 8C               A      339  .BYTE 00000000B,10001100B 
00000234 01 19               A      340  .BYTE 00000001B,00011001B 
00000236 03 32               A      341  .BYTE 00000011B,00110010B 
00000238 06 66               A      342  .BYTE 00000110B,01100110B 
0000023A FF                  A      343  .BYTE 11111111B           ; END IS FFh
                             A      344 
0000023B                     A      345 D_3PRIK_K0R:
0000023B 04 CC               A      346  .BYTE 00000100B,11001100B 
0000023D 01 99               A      347  .BYTE 00000001B,10011001B 
0000023F 03 33               A      348  .BYTE 00000011B,00110011B 
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    7


d:light.s

Location Object              Type  Line Source
00000241 06 66               A      349  .BYTE 00000110B,01100110B 
00000243 FF                  A      350  .BYTE 11111111B           ; END IS FFh
                             A      351 
                             A      352 
                             A      353 
00000244                     A      354 D_JIM_INTRO:
00000244 00 00               A      355  .BYTE 00000000B,00000000B 
00000246 04 00               A      356  .BYTE 00000100B,00000000B 
00000248 06 00               A      357  .BYTE 00000110B,00000000B 
0000024A 03 00               A      358  .BYTE 00000011B,00000000B 
0000024C 03 80               A      359  .BYTE 00000011B,10000000B 
0000024E 01 C0               A      360  .BYTE 00000001B,11000000B 
00000250 01 E0               A      361  .BYTE 00000001B,11100000B 
00000252 00 F0               A      362  .BYTE 00000000B,11110000B 
00000254 FF                  A      363  .BYTE 11111111B 
                             A      364 
00000255                     A      365 D_JIM_OUTRO:
00000255 01 70               A      366  .BYTE 00000001B,01110000B 
00000257 02 70               A      367  .BYTE 00000010B,01110000B 
00000259 04 A8               A      368  .BYTE 00000100B,10101000B 
0000025B 01 28               A      369  .BYTE 00000001B,00101000B 
0000025D 02 48               A      370  .BYTE 00000010B,01001000B 
0000025F 04 48               A      371  .BYTE 00000100B,01001000B 
00000261 00 90               A      372  .BYTE 00000000B,10010000B 
00000263 01 10               A      373  .BYTE 00000001B,00010000B 
00000265 02 00               A      374  .BYTE 00000010B,00000000B 
00000267 00 20               A      375  .BYTE 00000000B,00100000B 
00000269 00 00               A      376  .BYTE 00000000B,00000000B 
0000026B 00 80               A      377  .BYTE 00000000B,10000000B 
0000026D 00 00               A      378  .BYTE 00000000B,00000000B 
0000026F 01 00               A      379  .BYTE 00000001B,00000000B 
00000271 00 00               A      380  .BYTE 00000000B,00000000B 
00000273 00 00               A      381  .BYTE 00000000B,00000000B 
00000275 04 00               A      382  .BYTE 00000100B,00000000B 
00000277 00 00               A      383  .BYTE 00000000B,00000000B 
00000279 FF                  A      384  .BYTE 11111111B 
                             A      385 
0000027A                     A      386 D_JIM_LOOP1:
0000027A 00 F8               A      387  .BYTE 00000000B,11111000B 
0000027C 00 7C               A      388  .BYTE 00000000B,01111100B 
0000027E 00 7E               A      389  .BYTE 00000000B,01111110B 
00000280 00 3F               A      390  .BYTE 00000000B,00111111B 
00000282 00 3F               A      391  .BYTE 00000000B,00111111B 
00000284 00 1F               A      392  .BYTE 00000000B,00011111B 
00000286 00 1F               A      393  .BYTE 00000000B,00011111B 
00000288 00 0F               A      394  .BYTE 00000000B,00001111B 
0000028A 00 0F               A      395  .BYTE 00000000B,00001111B 
0000028C 00 07               A      396  .BYTE 00000000B,00000111B 
0000028E 00 07               A      397  .BYTE 00000000B,00000111B 
00000290 04 03               A      398  .BYTE 00000100B,00000011B 
00000292 06 03               A      399  .BYTE 00000110B,00000011B 
00000294 03 01               A      400  .BYTE 00000011B,00000001B 
00000296 03 81               A      401  .BYTE 00000011B,10000001B 
00000298 01 C0               A      402  .BYTE 00000001B,11000000B 
0000029A 01 E0               A      403  .BYTE 00000001B,11100000B 
0000029C 00 F0               A      404  .BYTE 00000000B,11110000B 
0000029E FF                  A      405  .BYTE 11111111B 
                             A      406 
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    8


d:light.s

Location Object              Type  Line Source
0000029F                     A      407 D_JIM_LOOP_SINE:
0000029F 00 58               A      408  .BYTE 00000000B,01011000B 
000002A1 00 4C               A      409  .BYTE 00000000B,01001100B 
000002A3 00 26               A      410  .BYTE 00000000B,00100110B 
000002A5 00 26               A      411  .BYTE 00000000B,00100110B 
000002A7 00 23               A      412  .BYTE 00000000B,00100011B 
000002A9 00 43               A      413  .BYTE 00000000B,01000011B 
000002AB 00 83               A      414  .BYTE 00000000B,10000011B 
000002AD 01 06               A      415  .BYTE 00000001B,00000110B 
000002AF 02 06               A      416  .BYTE 00000010B,00000110B 
000002B1 04 0C               A      417  .BYTE 00000100B,00001100B 
000002B3 04 18               A      418  .BYTE 00000100B,00011000B 
000002B5 04 30               A      419  .BYTE 00000100B,00110000B 
000002B7 02 30               A      420  .BYTE 00000010B,00110000B 
000002B9 02 60               A      421  .BYTE 00000010B,01100000B 
000002BB 01 60               A      422  .BYTE 00000001B,01100000B 
000002BD 01 60               A      423  .BYTE 00000001B,01100000B 
000002BF 00 B0               A      424  .BYTE 00000000B,10110000B 
000002C1 00 B0               A      425  .BYTE 00000000B,10110000B 
000002C3 FF                  A      426  .BYTE 11111111B 
                             A      427 
                             A      428 
                             A      429 
000002C4                     A      430 D_L0BH0J2:
000002C4 04 00               A      431  .BYTE 00000100B,00000000B 
000002C6 06 00               A      432  .BYTE 00000110B,00000000B 
000002C8 03 00               A      433  .BYTE 00000011B,00000000B 
000002CA 01 80               A      434  .BYTE 00000001B,10000000B 
000002CC 00 C0               A      435  .BYTE 00000000B,11000000B 
000002CE 00 60               A      436  .BYTE 00000000B,01100000B 
000002D0 00 30               A      437  .BYTE 00000000B,00110000B 
000002D2 00 18               A      438  .BYTE 00000000B,00011000B 
000002D4 00 0C               A      439  .BYTE 00000000B,00001100B 
000002D6 00 06               A      440  .BYTE 00000000B,00000110B 
000002D8 00 03               A      441  .BYTE 00000000B,00000011B 
000002DA 00 01               A      442  .BYTE 00000000B,00000001B 
000002DC FF                  A      443  .BYTE 11111111B           ; END IS FFh
                             A      444 
                             A      445 
000002DD                     A      446 D_L0BVEN2:
000002DD 00 01               A      447  .BYTE 00000000B,00000001B
000002DF 00 03               A      448  .BYTE 00000000B,00000011B
000002E1 00 06               A      449  .BYTE 00000000B,00000110B
000002E3 00 0C               A      450  .BYTE 00000000B,00001100B
000002E5 00 18               A      451  .BYTE 00000000B,00011000B
000002E7 00 30               A      452  .BYTE 00000000B,00110000B
000002E9 00 60               A      453  .BYTE 00000000B,01100000B
000002EB 00 C0               A      454  .BYTE 00000000B,11000000B
000002ED 01 80               A      455  .BYTE 00000001B,10000000B
000002EF 03 00               A      456  .BYTE 00000011B,00000000B
000002F1 06 00               A      457  .BYTE 00000110B,00000000B
000002F3 04 00               A      458  .BYTE 00000100B,00000000B
000002F5 FF                  A      459  .BYTE 11111111B           ; END IS FFh
                             A      460 
                             A      461 
000002F6                     A      462 D_MODMIDT2:
000002F6 04 01               A      463  .BYTE 00000100B,00000001B
000002F8 06 03               A      464  .BYTE 00000110B,00000011B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:    9


d:light.s

Location Object              Type  Line Source
000002FA 03 06               A      465  .BYTE 00000011B,00000110B
000002FC 01 8C               A      466  .BYTE 00000001B,10001100B
000002FE 00 D8               A      467  .BYTE 00000000B,11011000B
00000300 00 70               A      468  .BYTE 00000000B,01110000B
00000302 00 20               A      469  .BYTE 00000000B,00100000B
00000304 FF                  A      470  .BYTE 11111111B           ; END IS FFh
                             A      471 
00000305                     A      472 D_FRAMIDT2:
00000305 00 20               A      473  .BYTE 00000000B,00100000B
00000307 00 70               A      474  .BYTE 00000000B,01110000B
00000309 00 D8               A      475  .BYTE 00000000B,11011000B
0000030B 01 8C               A      476  .BYTE 00000001B,10001100B
0000030D 03 06               A      477  .BYTE 00000011B,00000110B
0000030F 06 03               A      478  .BYTE 00000110B,00000011B
00000311 04 01               A      479  .BYTE 00000100B,00000001B
00000313 00 00               A      480  .BYTE 00000000B,00000000B
00000315 FF                  A      481  .BYTE 11111111B           ; END IS FFh
                             A      482 
                             A      483 
                             A      484 
00000316                     A      485 D_L0BVEN_ALL:
00000316 00 00               A      486  .BYTE 00000000B,00000000B
00000318 00 01               A      487  .BYTE 00000000B,00000001B
0000031A 00 01               A      488  .BYTE 00000000B,00000001B
0000031C 00 01               A      489  .BYTE 00000000B,00000001B
0000031E 00 01               A      490  .BYTE 00000000B,00000001B
00000320 00 01               A      491  .BYTE 00000000B,00000001B
00000322 00 02               A      492  .BYTE 00000000B,00000010B
00000324 00 02               A      493  .BYTE 00000000B,00000010B
00000326 00 02               A      494  .BYTE 00000000B,00000010B
00000328 00 04               A      495  .BYTE 00000000B,00000100B
0000032A 00 04               A      496  .BYTE 00000000B,00000100B
0000032C 00 08               A      497  .BYTE 00000000B,00001000B
0000032E 00 10               A      498  .BYTE 00000000B,00010000B
00000330 00 20               A      499  .BYTE 00000000B,00100000B
00000332 00 41               A      500  .BYTE 00000000B,01000001B
00000334 00 82               A      501  .BYTE 00000000B,10000010B
00000336 01 04               A      502  .BYTE 00000001B,00000100B
00000338 02 08               A      503  .BYTE 00000010B,00001000B
0000033A 02 10               A      504  .BYTE 00000010B,00010000B
0000033C 04 20               A      505  .BYTE 00000100B,00100000B
0000033E 04 41               A      506  .BYTE 00000100B,01000001B
00000340 04 82               A      507  .BYTE 00000100B,10000010B
00000342 05 04               A      508  .BYTE 00000101B,00000100B
00000344 05 08               A      509  .BYTE 00000101B,00001000B
00000346 06 10               A      510  .BYTE 00000110B,00010000B
00000348 06 20               A      511  .BYTE 00000110B,00100000B
0000034A 06 41               A      512  .BYTE 00000110B,01000001B
0000034C 06 82               A      513  .BYTE 00000110B,10000010B
0000034E 06 84               A      514  .BYTE 00000110B,10000100B
00000350 07 08               A      515  .BYTE 00000111B,00001000B
00000352 07 10               A      516  .BYTE 00000111B,00010000B
00000354 07 20               A      517  .BYTE 00000111B,00100000B
00000356 07 41               A      518  .BYTE 00000111B,01000001B
00000358 07 42               A      519  .BYTE 00000111B,01000010B
0000035A 07 84               A      520  .BYTE 00000111B,10000100B
0000035C 07 88               A      521  .BYTE 00000111B,10001000B
0000035E 07 90               A      522  .BYTE 00000111B,10010000B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   10


d:light.s

Location Object              Type  Line Source
00000360 07 A0               A      523  .BYTE 00000111B,10100000B
00000362 07 A1               A      524  .BYTE 00000111B,10100001B
00000364 07 C2               A      525  .BYTE 00000111B,11000010B
00000366 07 C4               A      526  .BYTE 00000111B,11000100B
00000368 07 C8               A      527  .BYTE 00000111B,11001000B
0000036A 07 D0               A      528  .BYTE 00000111B,11010000B
0000036C 07 D0               A      529  .BYTE 00000111B,11010000B
0000036E 07 E1               A      530  .BYTE 00000111B,11100001B
00000370 07 E2               A      531  .BYTE 00000111B,11100010B
00000372 07 E4               A      532  .BYTE 00000111B,11100100B
00000374 07 E8               A      533  .BYTE 00000111B,11101000B
00000376 07 E8               A      534  .BYTE 00000111B,11101000B
00000378 07 F0               A      535  .BYTE 00000111B,11110000B
0000037A 07 F1               A      536  .BYTE 00000111B,11110001B
0000037C 07 F2               A      537  .BYTE 00000111B,11110010B
0000037E 07 F4               A      538  .BYTE 00000111B,11110100B
00000380 07 F4               A      539  .BYTE 00000111B,11110100B
00000382 07 F8               A      540  .BYTE 00000111B,11111000B
00000384 07 F8               A      541  .BYTE 00000111B,11111000B
00000386 07 F9               A      542  .BYTE 00000111B,11111001B
00000388 07 F9               A      543  .BYTE 00000111B,11111001B
0000038A 07 FA               A      544  .BYTE 00000111B,11111010B
0000038C 07 FA               A      545  .BYTE 00000111B,11111010B
0000038E 07 FC               A      546  .BYTE 00000111B,11111100B
00000390 07 FC               A      547  .BYTE 00000111B,11111100B
00000392 07 FD               A      548  .BYTE 00000111B,11111101B
00000394 07 FD               A      549  .BYTE 00000111B,11111101B
00000396 07 FE               A      550  .BYTE 00000111B,11111110B
00000398 07 FE               A      551  .BYTE 00000111B,11111110B
0000039A 07 FE               A      552  .BYTE 00000111B,11111110B
0000039C 07 FF               A      553  .BYTE 00000111B,11111111B
0000039E 07 FF               A      554  .BYTE 00000111B,11111111B
000003A0 FF                  A      555  .BYTE 11111111B           ; END IS FFh
                             A      556 
                             A      557 
000003A1                     A      558 D_FRA_ALL:
000003A1 07 FF               A      559  .BYTE 00000111B,11111111B
000003A3 03 FF               A      560  .BYTE 00000011B,11111111B
000003A5 03 FE               A      561  .BYTE 00000011B,11111110B
000003A7 01 FE               A      562  .BYTE 00000001B,11111110B
000003A9 01 FC               A      563  .BYTE 00000001B,11111100B
000003AB 00 FC               A      564  .BYTE 00000000B,11111100B
000003AD 00 F8               A      565  .BYTE 00000000B,11111000B
000003AF 00 78               A      566  .BYTE 00000000B,01111000B
000003B1 00 70               A      567  .BYTE 00000000B,01110000B
000003B3 00 30               A      568  .BYTE 00000000B,00110000B
000003B5 00 20               A      569  .BYTE 00000000B,00100000B
000003B7 FF                  A      570  .BYTE 11111111B           ; END IS FFh
                             A      571 
                             A      572 
000003B8                     A      573 D_TIL_ALL:
000003B8 00 20               A      574  .BYTE 00000000B,00100000B
000003BA 00 30               A      575  .BYTE 00000000B,00110000B
000003BC 00 70               A      576  .BYTE 00000000B,01110000B
000003BE 00 78               A      577  .BYTE 00000000B,01111000B
000003C0 00 F8               A      578  .BYTE 00000000B,11111000B
000003C2 00 FC               A      579  .BYTE 00000000B,11111100B
000003C4 01 FC               A      580  .BYTE 00000001B,11111100B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   11


d:light.s

Location Object              Type  Line Source
000003C6 01 FE               A      581  .BYTE 00000001B,11111110B
000003C8 03 FE               A      582  .BYTE 00000011B,11111110B
000003CA 03 FF               A      583  .BYTE 00000011B,11111111B
000003CC 07 FF               A      584  .BYTE 00000111B,11111111B
000003CE FF                  A      585  .BYTE 11111111B           ; END IS FFh
                             A      586 
                             A      587 
000003CF                     A      588 D_FREMTIL
000003CF 00 20               A      589  .BYTE 00000000B,00100000B
000003D1 00 30               A      590  .BYTE 00000000B,00110000B
000003D3 00 38               A      591  .BYTE 00000000B,00111000B
000003D5 00 3C               A      592  .BYTE 00000000B,00111100B
000003D7 00 3C               A      593  .BYTE 00000000B,00111100B
000003D9 00 3E               A      594  .BYTE 00000000B,00111110B
000003DB 00 3E               A      595  .BYTE 00000000B,00111110B
000003DD 00 3E               A      596  .BYTE 00000000B,00111110B
000003DF 00 3F               A      597  .BYTE 00000000B,00111111B
000003E1 00 3F               A      598  .BYTE 00000000B,00111111B
000003E3 00 3F               A      599  .BYTE 00000000B,00111111B
000003E5 00 3F               A      600  .BYTE 00000000B,00111111B
000003E7 00 3F               A      601  .BYTE 00000000B,00111111B
000003E9 00 3F               A      602  .BYTE 00000000B,00111111B
000003EB 00 3E               A      603  .BYTE 00000000B,00111110B
000003ED 00 3E               A      604  .BYTE 00000000B,00111110B
000003EF 00 3E               A      605  .BYTE 00000000B,00111110B
000003F1 00 3C               A      606  .BYTE 00000000B,00111100B
000003F3 00 3C               A      607  .BYTE 00000000B,00111100B
000003F5 00 38               A      608  .BYTE 00000000B,00111000B
000003F7 00 30               A      609  .BYTE 00000000B,00110000B
000003F9 00 20               A      610  .BYTE 00000000B,00100000B
000003FB 00 60               A      611  .BYTE 00000000B,01100000B
000003FD 00 E0               A      612  .BYTE 00000000B,11100000B
000003FF 01 E0               A      613  .BYTE 00000001B,11100000B
00000401 01 E0               A      614  .BYTE 00000001B,11100000B
00000403 03 E0               A      615  .BYTE 00000011B,11100000B
00000405 03 E0               A      616  .BYTE 00000011B,11100000B
00000407 03 E0               A      617  .BYTE 00000011B,11100000B
00000409 07 E0               A      618  .BYTE 00000111B,11100000B
0000040B 07 E0               A      619  .BYTE 00000111B,11100000B
0000040D 07 E0               A      620  .BYTE 00000111B,11100000B
0000040F 07 E0               A      621  .BYTE 00000111B,11100000B
00000411 07 E0               A      622  .BYTE 00000111B,11100000B
00000413 07 E0               A      623  .BYTE 00000111B,11100000B
00000415 03 E0               A      624  .BYTE 00000011B,11100000B
00000417 03 E0               A      625  .BYTE 00000011B,11100000B
00000419 03 E0               A      626  .BYTE 00000011B,11100000B
0000041B 01 E0               A      627  .BYTE 00000001B,11100000B
0000041D 01 E0               A      628  .BYTE 00000001B,11100000B
0000041F 00 E0               A      629  .BYTE 00000000B,11100000B
00000421 00 60               A      630  .BYTE 00000000B,01100000B
00000423 00 20               A      631  .BYTE 00000000B,00100000B
00000425 FF                  A      632  .BYTE 11111111B           ; END IS FFh
                             A      633 
                             A      634 
                             A      635 
                             A      636 
                             A      637 
00000426                     A      638 D_SINUS:
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   12


d:light.s

Location Object              Type  Line Source
00000426 00 20               A      639  .BYTE 00000000B,00100000B
00000428 00 10               A      640  .BYTE 00000000B,00010000B
0000042A 00 08               A      641  .BYTE 00000000B,00001000B
0000042C 00 0C               A      642  .BYTE 00000000B,00001100B
0000042E 00 04               A      643  .BYTE 00000000B,00000100B
00000430 00 06               A      644  .BYTE 00000000B,00000110B
00000432 00 02               A      645  .BYTE 00000000B,00000010B
00000434 00 03               A      646  .BYTE 00000000B,00000011B
00000436 00 03               A      647  .BYTE 00000000B,00000011B
00000438 00 01               A      648  .BYTE 00000000B,00000001B
0000043A 00 01               A      649  .BYTE 00000000B,00000001B
0000043C 00 01               A      650  .BYTE 00000000B,00000001B
0000043E 00 01               A      651  .BYTE 00000000B,00000001B
00000440 00 03               A      652  .BYTE 00000000B,00000011B
00000442 00 03               A      653  .BYTE 00000000B,00000011B
00000444 00 02               A      654  .BYTE 00000000B,00000010B
00000446 00 06               A      655  .BYTE 00000000B,00000110B
00000448 00 04               A      656  .BYTE 00000000B,00000100B
0000044A 00 0C               A      657  .BYTE 00000000B,00001100B
0000044C 00 08               A      658  .BYTE 00000000B,00001000B
0000044E 00 10               A      659  .BYTE 00000000B,00010000B
00000450 00 20               A      660  .BYTE 00000000B,00100000B
00000452 00 40               A      661  .BYTE 00000000B,01000000B
00000454 00 80               A      662  .BYTE 00000000B,10000000B
00000456 01 80               A      663  .BYTE 00000001B,10000000B
00000458 01 00               A      664  .BYTE 00000001B,00000000B
0000045A 03 00               A      665  .BYTE 00000011B,00000000B
0000045C 02 00               A      666  .BYTE 00000010B,00000000B
0000045E 06 00               A      667  .BYTE 00000110B,00000000B
00000460 06 00               A      668  .BYTE 00000110B,00000000B
00000462 04 00               A      669  .BYTE 00000100B,00000000B
00000464 04 00               A      670  .BYTE 00000100B,00000000B
00000466 04 00               A      671  .BYTE 00000100B,00000000B
00000468 04 00               A      672  .BYTE 00000100B,00000000B
0000046A 06 00               A      673  .BYTE 00000110B,00000000B
0000046C 06 00               A      674  .BYTE 00000110B,00000000B
0000046E 02 00               A      675  .BYTE 00000010B,00000000B
00000470 03 00               A      676  .BYTE 00000011B,00000000B
00000472 01 00               A      677  .BYTE 00000001B,00000000B
00000474 01 80               A      678  .BYTE 00000001B,10000000B
00000476 00 80               A      679  .BYTE 00000000B,10000000B
00000478 00 40               A      680  .BYTE 00000000B,01000000B
0000047A FF                  A      681  .BYTE 11111111B           ; END IS FFh
                             A      682 
                             A      683 
                             A      684 ;****************************************************************************
                             A      685 ; HERE IS THE PWM TABLE, FOR ALL 11 BITS. MORE 1 GIVE MORE LIGHT.
0000047B                     A      686 D_FADER:
0000047B 03 FF               A      687  .BYTE 00000011B,11111111B  ; 012-34 68 A8 64
0000047D 00 1C               A      688  .BYTE 00000000B,00011100B
0000047F 00 3E               A      689  .BYTE 00000000B,00111110B
00000481 00 49               A      690  .BYTE 00000000B,01001001B
00000483 01 BE               A      691  .BYTE 00000001B,10111110B
00000485 00 3E               A      692  .BYTE 00000000B,00111110B
00000487 00 7F               A      693  .BYTE 00000000B,01111111B
00000489 00 08               A      694  .BYTE 00000000B,00001000B
0000048B 00 3E               A      695  .BYTE 00000000B,00111110B
0000048D 00 DD               A      696  .BYTE 00000000B,11011101B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   13


d:light.s

Location Object              Type  Line Source
                             A      697 
0000048F 05 FF               A      698  .BYTE 00000101B,11111111B  ; 101-23 46 8A 86
00000491 00 0F               A      699  .BYTE 00000000B,00001111B
00000493 00 1E               A      700  .BYTE 00000000B,00011110B
00000495 00 7F               A      701  .BYTE 00000000B,01111111B
00000497 00 15               A      702  .BYTE 00000000B,00010101B
00000499 00 8E               A      703  .BYTE 00000000B,10001110B
0000049B 00 3F               A      704  .BYTE 00000000B,00111111B
0000049D 00 4F               A      705  .BYTE 00000000B,01001111B
0000049F 00 3E               A      706  .BYTE 00000000B,00111110B
000004A1 00 04               A      707  .BYTE 00000000B,00000100B
                             A      708 
000004A3 06 FF               A      709  .BYTE 00000110B,11111111B  ; 210-12 34 68 A8
000004A5 00 07               A      710  .BYTE 00000000B,00000111B
000004A7 00 0F               A      711  .BYTE 00000000B,00001111B
000004A9 00 32               A      712  .BYTE 00000000B,00110010B
000004AB 00 0F               A      713  .BYTE 00000000B,00001111B
000004AD 04 5F               A      714  .BYTE 00000100B,01011111B
000004AF 00 0F               A      715  .BYTE 00000000B,00001111B
000004B1 00 27               A      716  .BYTE 00000000B,00100111B
000004B3 00 1F               A      717  .BYTE 00000000B,00011111B
000004B5 00 02               A      718  .BYTE 00000000B,00000010B
                             A      719 
000004B7 07 7F               A      720  .BYTE 00000111B,01111111B  ; 321-01 23 46 8A
000004B9 00 07               A      721  .BYTE 00000000B,00000111B
000004BB 00 03               A      722  .BYTE 00000000B,00000011B
000004BD 00 1F               A      723  .BYTE 00000000B,00011111B
000004BF 06 05               A      724  .BYTE 00000110B,00000101B
000004C1 00 2B               A      725  .BYTE 00000000B,00101011B
000004C3 00 07               A      726  .BYTE 00000000B,00000111B
000004C5 04 17               A      727  .BYTE 00000100B,00010111B
000004C7 00 0B               A      728  .BYTE 00000000B,00001011B
000004C9 00 01               A      729  .BYTE 00000000B,00000001B
                             A      730 
000004CB 07 BF               A      731  .BYTE 00000111B,10111111B  ; 432-10 12 34 68
000004CD 00 01               A      732  .BYTE 00000000B,00000001B
000004CF 04 07               A      733  .BYTE 00000100B,00000111B
000004D1 00 09               A      734  .BYTE 00000000B,00001001B
000004D3 07 02               A      735  .BYTE 00000111B,00000010B
000004D5 00 17               A      736  .BYTE 00000000B,00010111B
000004D7 00 03               A      737  .BYTE 00000000B,00000011B
000004D9 06 09               A      738  .BYTE 00000110B,00001001B
000004DB 00 07               A      739  .BYTE 00000000B,00000111B
000004DD 00 00               A      740  .BYTE 00000000B,00000000B
                             A      741 
000004DF 07 DF               A      742  .BYTE 00000111B,11011111B  ; 643-21 01 23 46
000004E1 00 00               A      743  .BYTE 00000000B,00000000B
000004E3 06 03               A      744  .BYTE 00000110B,00000011B
000004E5 01 05               A      745  .BYTE 00000001B,00000101B
000004E7 06 01               A      746  .BYTE 00000110B,00000001B
000004E9 04 8A               A      747  .BYTE 00000100B,10001010B
000004EB 04 01               A      748  .BYTE 00000100B,00000001B
000004ED 03 04               A      749  .BYTE 00000011B,00000100B
000004EF 04 03               A      750  .BYTE 00000100B,00000011B
000004F1 00 00               A      751  .BYTE 00000000B,00000000B
                             A      752 
000004F3 07 EF               A      753  .BYTE 00000111B,11101111B  ; 864-32 10 12 34
000004F5 04 00               A      754  .BYTE 00000100B,00000000B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   14


d:light.s

Location Object              Type  Line Source
000004F7 06 01               A      755  .BYTE 00000110B,00000001B
000004F9 01 82               A      756  .BYTE 00000001B,10000010B
000004FB 06 00               A      757  .BYTE 00000110B,00000000B
000004FD 04 45               A      758  .BYTE 00000100B,01000101B
000004FF 07 00               A      759  .BYTE 00000111B,00000000B
00000501 06 82               A      760  .BYTE 00000110B,10000010B
00000503 07 01               A      761  .BYTE 00000111B,00000001B
00000505 00 00               A      762  .BYTE 00000000B,00000000B
                             A      763 
00000507 07 F7               A      764  .BYTE 00000111B,11110111B  ; A86-43 21 01 23
00000509 06 00               A      765  .BYTE 00000110B,00000000B
0000050B 07 00               A      766  .BYTE 00000111B,00000000B
0000050D 04 C1               A      767  .BYTE 00000100B,11000001B
0000050F 07 00               A      768  .BYTE 00000111B,00000000B
00000511 07 A2               A      769  .BYTE 00000111B,10100010B
00000513 06 00               A      770  .BYTE 00000110B,00000000B
00000515 07 41               A      771  .BYTE 00000111B,01000001B
00000517 05 80               A      772  .BYTE 00000101B,10000000B
00000519 06 00               A      773  .BYTE 00000110B,00000000B
                             A      774 
0000051B 07 FB               A      775  .BYTE 00000111B,11111011B  ; 8A8-64 32 10 12
0000051D 07 00               A      776  .BYTE 00000111B,00000000B
0000051F 07 80               A      777  .BYTE 00000111B,10000000B
00000521 02 E0               A      778  .BYTE 00000010B,11100000B
00000523 07 00               A      779  .BYTE 00000111B,00000000B
00000525 07 81               A      780  .BYTE 00000111B,10000001B
00000527 07 D0               A      781  .BYTE 00000111B,11010000B
00000529 07 20               A      782  .BYTE 00000111B,00100000B
0000052B 07 C0               A      783  .BYTE 00000111B,11000000B
0000052D 02 00               A      784  .BYTE 00000010B,00000000B
                             A      785 
0000052F 07 FD               A      786  .BYTE 00000111B,11111101B  ; 68A-86 43 21 01
00000531 03 80               A      787  .BYTE 00000011B,10000000B
00000533 07 60               A      788  .BYTE 00000111B,01100000B
00000535 03 90               A      789  .BYTE 00000011B,10010000B
00000537 05 C0               A      790  .BYTE 00000101B,11000000B
00000539 07 E8               A      791  .BYTE 00000111B,11101000B
0000053B 07 80               A      792  .BYTE 00000111B,10000000B
0000053D 03 50               A      793  .BYTE 00000011B,01010000B
0000053F 07 A0               A      794  .BYTE 00000111B,10100000B
00000541 01 C0               A      795  .BYTE 00000001B,11000000B
                             A      796 
00000543 07 FE               A      797  .BYTE 00000111B,11111110B  ; 468-A8 64 32 10
00000545 01 E0               A      798  .BYTE 00000001B,11100000B
00000547 07 C0               A      799  .BYTE 00000111B,11000000B
00000549 02 D8               A      800  .BYTE 00000010B,11011000B
0000054B 07 A0               A      801  .BYTE 00000111B,10100000B
0000054D 01 F4               A      802  .BYTE 00000001B,11110100B
0000054F 03 C0               A      803  .BYTE 00000011B,11000000B
00000551 05 F8               A      804  .BYTE 00000101B,11111000B
00000553 03 E0               A      805  .BYTE 00000011B,11100000B
00000555 00 80               A      806  .BYTE 00000000B,10000000B
                             A      807 
00000557 07 FF               A      808  .BYTE 00000111B,11111111B  ; 346-8A 86 43 21
00000559 00 E0               A      809  .BYTE 00000000B,11100000B
0000055B 03 F8               A      810  .BYTE 00000011B,11111000B
0000055D 00 F4               A      811  .BYTE 00000000B,11110100B
0000055F 07 40               A      812  .BYTE 00000111B,01000000B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   15


d:light.s

Location Object              Type  Line Source
00000561 00 FA               A      813  .BYTE 00000000B,11111010B
00000563 01 E0               A      814  .BYTE 00000001B,11100000B
00000565 06 F4               A      815  .BYTE 00000110B,11110100B
00000567 01 E8               A      816  .BYTE 00000001B,11101000B
00000569 01 50               A      817  .BYTE 00000001B,01010000B
                             A      818 
0000056B 07 FF               A      819  .BYTE 00000111B,11111111B  ; 234-68 A8 64 32
0000056D 00 70               A      820  .BYTE 00000000B,01110000B
0000056F 00 FC               A      821  .BYTE 00000000B,11111100B
00000571 03 F0               A      822  .BYTE 00000011B,11110000B
00000573 00 AA               A      823  .BYTE 00000000B,10101010B
00000575 04 7D               A      824  .BYTE 00000100B,01111101B
00000577 01 F0               A      825  .BYTE 00000001B,11110000B
00000579 02 7A               A      826  .BYTE 00000010B,01111010B
0000057B 01 F4               A      827  .BYTE 00000001B,11110100B
0000057D 00 28               A      828  .BYTE 00000000B,00101000B
                             A      829 
0000057F 07 FF               A      830  .BYTE 00000111B,11111111B  ; 123-46 8A 86 43
00000581 00 38               A      831  .BYTE 00000000B,00111000B
00000583 00 7E               A      832  .BYTE 00000000B,01111110B
00000585 01 BD               A      833  .BYTE 00000001B,10111101B
00000587 00 50               A      834  .BYTE 00000000B,01010000B
00000589 02 7E               A      835  .BYTE 00000010B,01111110B
0000058B 00 B8               A      836  .BYTE 00000000B,10111000B
0000058D 01 7D               A      837  .BYTE 00000001B,01111101B
0000058F 00 BE               A      838  .BYTE 00000000B,10111110B
00000591 00 50               A      839  .BYTE 00000000B,01010000B
00000593 FF                  A      840  .BYTE 11111111B           ; END IS FFh
                             A      841 
                             A      842 
00000594                     A      843 D_FADE_OP:                  ; FADE LIGHT UP FROM BLACK.
00000594 00 00               A      844  .BYTE 00000000B,00000000B  ; 000-00 00 00 00
00000596 00 00               A      845  .BYTE 00000000B,00000000B
00000598 00 00               A      846  .BYTE 00000000B,00000000B
0000059A 00 00               A      847  .BYTE 00000000B,00000000B
0000059C 00 00               A      848  .BYTE 00000000B,00000000B
0000059E 00 00               A      849  .BYTE 00000000B,00000000B
000005A0 00 00               A      850  .BYTE 00000000B,00000000B
000005A2 00 00               A      851  .BYTE 00000000B,00000000B
000005A4 00 00               A      852  .BYTE 00000000B,00000000B
000005A6 00 00               A      853  .BYTE 00000000B,00000000B
                             A      854 
000005A8 00 08               A      855  .BYTE 00000000B,00001000B  ; 000-00 00 10 00
000005AA 00 00               A      856  .BYTE 00000000B,00000000B
000005AC 00 00               A      857  .BYTE 00000000B,00000000B
000005AE 00 00               A      858  .BYTE 00000000B,00000000B
000005B0 00 00               A      859  .BYTE 00000000B,00000000B
000005B2 00 00               A      860  .BYTE 00000000B,00000000B
000005B4 00 00               A      861  .BYTE 00000000B,00000000B
000005B6 00 00               A      862  .BYTE 00000000B,00000000B
000005B8 00 00               A      863  .BYTE 00000000B,00000000B
000005BA 00 00               A      864  .BYTE 00000000B,00000000B
                             A      865 
000005BC 00 1C               A      866  .BYTE 00000000B,00011100B  ; 000-00 01 21 00
000005BE 00 00               A      867  .BYTE 00000000B,00000000B
000005C0 00 00               A      868  .BYTE 00000000B,00000000B
000005C2 00 00               A      869  .BYTE 00000000B,00000000B
000005C4 00 08               A      870  .BYTE 00000000B,00001000B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   16


d:light.s

Location Object              Type  Line Source
000005C6 00 00               A      871  .BYTE 00000000B,00000000B
000005C8 00 00               A      872  .BYTE 00000000B,00000000B
000005CA 00 00               A      873  .BYTE 00000000B,00000000B
000005CC 00 00               A      874  .BYTE 00000000B,00000000B
000005CE 00 00               A      875  .BYTE 00000000B,00000000B
                             A      876 
000005D0 00 3E               A      877  .BYTE 00000000B,00111110B  ; 000-00 12 32 10
000005D2 00 00               A      878  .BYTE 00000000B,00000000B
000005D4 00 00               A      879  .BYTE 00000000B,00000000B
000005D6 00 08               A      880  .BYTE 00000000B,00001000B
000005D8 00 14               A      881  .BYTE 00000000B,00010100B
000005DA 00 00               A      882  .BYTE 00000000B,00000000B
000005DC 00 00               A      883  .BYTE 00000000B,00000000B
000005DE 00 08               A      884  .BYTE 00000000B,00001000B
000005E0 00 00               A      885  .BYTE 00000000B,00000000B
000005E2 00 00               A      886  .BYTE 00000000B,00000000B
                             A      887 
000005E4 00 7F               A      888  .BYTE 00000000B,01111111B  ; 000-01 23 43 21
000005E6 00 00               A      889  .BYTE 00000000B,00000000B
000005E8 00 0C               A      890  .BYTE 00000000B,00001100B
000005EA 00 10               A      891  .BYTE 00000000B,00010000B
000005EC 00 00               A      892  .BYTE 00000000B,00000000B
000005EE 00 2C               A      893  .BYTE 00000000B,00101100B
000005F0 00 00               A      894  .BYTE 00000000B,00000000B
000005F2 00 1A               A      895  .BYTE 00000000B,00011010B
000005F4 00 00               A      896  .BYTE 00000000B,00000000B
000005F6 00 00               A      897  .BYTE 00000000B,00000000B
                             A      898 
000005F8 00 FF               A      899  .BYTE 00000000B,11111111B  ; 000-12 34 64 32
000005FA 00 04               A      900  .BYTE 00000000B,00000100B
000005FC 00 18               A      901  .BYTE 00000000B,00011000B
000005FE 00 29               A      902  .BYTE 00000000B,00101001B
00000600 00 4E               A      903  .BYTE 00000000B,01001110B
00000602 00 10               A      904  .BYTE 00000000B,00010000B
00000604 00 28               A      905  .BYTE 00000000B,00101000B
00000606 00 16               A      906  .BYTE 00000000B,00010110B
00000608 00 08               A      907  .BYTE 00000000B,00001000B
0000060A 00 00               A      908  .BYTE 00000000B,00000000B
                             A      909 
0000060C 01 FF               A      910  .BYTE 00000001B,11111111B  ; 001-23 46 86 43
0000060E 00 08               A      911  .BYTE 00000000B,00001000B
00000610 00 3E               A      912  .BYTE 00000000B,00111110B
00000612 00 49               A      913  .BYTE 00000000B,01001001B
00000614 00 16               A      914  .BYTE 00000000B,00010110B
00000616 00 A8               A      915  .BYTE 00000000B,10101000B
00000618 00 1C               A      916  .BYTE 00000000B,00011100B
0000061A 00 5F               A      917  .BYTE 00000000B,01011111B
0000061C 00 2C               A      918  .BYTE 00000000B,00101100B
0000061E 00 10               A      919  .BYTE 00000000B,00010000B
00000620 FF                  A      920  .BYTE 11111111B
                             A      921 
00000621                     A      922 D_FADE_NED:                 ; FADE DOWN TO BLACK.
00000621 03 FF               A      923  .BYTE 00000011B,11111111B  ; 012-34 68 64 32
00000623 00 30               A      924  .BYTE 00000000B,00110000B
00000625 00 1C               A      925  .BYTE 00000000B,00011100B
00000627 00 F2               A      926  .BYTE 00000000B,11110010B
00000629 01 1C               A      927  .BYTE 00000001B,00011100B
0000062B 00 79               A      928  .BYTE 00000000B,01111001B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   17


d:light.s

Location Object              Type  Line Source
0000062D 00 12               A      929  .BYTE 00000000B,00010010B
0000062F 00 AC               A      930  .BYTE 00000000B,10101100B
00000631 00 78               A      931  .BYTE 00000000B,01111000B
00000633 00 00               A      932  .BYTE 00000000B,00000000B
                             A      933 
00000635 01 FF               A      934  .BYTE 00000001B,11111111B  ; 001-23 46 43 21
00000637 00 10               A      935  .BYTE 00000000B,00010000B
00000639 00 20               A      936  .BYTE 00000000B,00100000B
0000063B 00 5C               A      937  .BYTE 00000000B,01011100B
0000063D 00 80               A      938  .BYTE 00000000B,10000000B
0000063F 00 3A               A      939  .BYTE 00000000B,00111010B
00000641 00 40               A      940  .BYTE 00000000B,01000000B
00000643 00 3C               A      941  .BYTE 00000000B,00111100B
00000645 00 10               A      942  .BYTE 00000000B,00010000B
00000647 00 00               A      943  .BYTE 00000000B,00000000B
                             A      944 
00000649 00 FE               A      945  .BYTE 00000000B,11111110B  ; 000-12 34 32 10
0000064B 00 00               A      946  .BYTE 00000000B,00000000B
0000064D 00 00               A      947  .BYTE 00000000B,00000000B
0000064F 00 38               A      948  .BYTE 00000000B,00111000B
00000651 00 00               A      949  .BYTE 00000000B,00000000B
00000653 00 54               A      950  .BYTE 00000000B,01010100B
00000655 00 20               A      951  .BYTE 00000000B,00100000B
00000657 00 08               A      952  .BYTE 00000000B,00001000B
00000659 00 10               A      953  .BYTE 00000000B,00010000B
0000065B 00 00               A      954  .BYTE 00000000B,00000000B
                             A      955 
0000065D 00 7C               A      956  .BYTE 00000000B,01111100B  ; 000-01 23 21 00
0000065F 00 00               A      957  .BYTE 00000000B,00000000B
00000661 00 00               A      958  .BYTE 00000000B,00000000B
00000663 00 10               A      959  .BYTE 00000000B,00010000B
00000665 00 00               A      960  .BYTE 00000000B,00000000B
00000667 00 08               A      961  .BYTE 00000000B,00001000B
00000669 00 30               A      962  .BYTE 00000000B,00110000B
0000066B 00 00               A      963  .BYTE 00000000B,00000000B
0000066D 00 00               A      964  .BYTE 00000000B,00000000B
0000066F 00 00               A      965  .BYTE 00000000B,00000000B
                             A      966 
00000671 00 38               A      967  .BYTE 00000000B,00111000B  ; 000-00 12 10 00
00000673 00 00               A      968  .BYTE 00000000B,00000000B
00000675 00 00               A      969  .BYTE 00000000B,00000000B
00000677 00 00               A      970  .BYTE 00000000B,00000000B
00000679 00 00               A      971  .BYTE 00000000B,00000000B
0000067B 00 10               A      972  .BYTE 00000000B,00010000B
0000067D 00 00               A      973  .BYTE 00000000B,00000000B
0000067F 00 00               A      974  .BYTE 00000000B,00000000B
00000681 00 00               A      975  .BYTE 00000000B,00000000B
00000683 00 00               A      976  .BYTE 00000000B,00000000B
                             A      977 
00000685 00 10               A      978  .BYTE 00000000B,00010000B  ; 000-00 01 00 00
00000687 00 00               A      979  .BYTE 00000000B,00000000B
00000689 00 00               A      980  .BYTE 00000000B,00000000B
0000068B 00 00               A      981  .BYTE 00000000B,00000000B
0000068D 00 00               A      982  .BYTE 00000000B,00000000B
0000068F 00 00               A      983  .BYTE 00000000B,00000000B
00000691 00 00               A      984  .BYTE 00000000B,00000000B
00000693 00 00               A      985  .BYTE 00000000B,00000000B
00000695 00 00               A      986  .BYTE 00000000B,00000000B
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   18


d:light.s

Location Object              Type  Line Source
00000697 00 00               A      987  .BYTE 00000000B,00000000B
00000699 FF                  A      988  .BYTE 11111111B           ; END IS FFh
                             A      989 
0000069A                     A      990 .end    
Zilog Macro Assembler.  Version K2.13    15-Jun-107    17:53:36    Page:   19


d:light.s


    0 Warnings
    0 Errors