Top 10k strings from clock2.lst in <root> / src / z80 / Clock.zip /
Back to the directory listing
4 call PrintChar 3 jr nz, Print 3 call N2DEC 3 add hl, hl 2 ld a, (SecCount) 2 ld a, (MinCount) 2 ld a, (HourCount) 2 ld (SecCount), a 2 ld (MinCount), a 2 ld (HourCount), a 2 call DigitLoop 1 savebin "clock2.bin", start, EndIntRoutine - start 1 org ISR_ADDR - (EndLdr - start) 1 org ISR_ADDR 1 ld ix, SCR_OFF + 6 1 ld ix, SCR_OFF + 5 1 ld ix, SCR_OFF + 3 1 ld ix, SCR_OFF + 2 1 ld ix, SCR_OFF 1 ld ix, JP_ADDR 1 ld de, ISR_ADDR 1 ld de, (FNT_TBL_ADDR) 1 ld bc, StartIntRoutine - Overhead 1 ld bc, EndIntRoutine - IntRoutine 1 ld bc, -10 1 ld a, ROM_INT_VEC 1 ld a, JR_OPCODE 1 ld a, (hl) 1 ld a, (TickCount) 1 ld (ix), a 1 ld (ix), JP_OPCODE 1 ld (ix + 2), d 1 ld (ix + 1), e 1 ld (TickCount), a 1 ld ($FFFF), a 1 ld de, 256 1 ld bc, -256*8 + 1 1 jr nz, Clean 1 jp ROM_INT_HANDLER 1 hl, 16384+6144+32-8 1 equ 16384 + 32 - 8 1 djnz PrintLine 1 djnz FillAttr 1 cp TICS_PER_SEC 1 call ROM_RET 1 call Payload 1 c, DivNrLoop 1 add ix, de 1 add ix, bc 1 add hl, de 1 add hl, bc 1 a, '0' - 1 1 DEVICE ZXSPECTRUM48 1 ;this will re-enable interupts 1 ;substract divizor 1 ;still dividing? 1 ;set interrupt 1 ;screen offset address for display 1 ;number of tics per second 1 ;nope, restore 1 ;move int routine to proper address 1 ;increase reminder 1 ;font table pointer system variable 1 ;find font address 1 210 FEBF 1 209 FEBF 1 208 FEBF EndIntRoutine: 1 207 FEBE 00 HourCount 1 206 FEBD 00 MinCount 1 205 FEBC 00 SecCount 1 204 FEBB 00 TickCount 1 203 FEBB 1 202 FEBA C9 1 201 FEB8 ED 42 1 200 FEB6 38 FC 1 199 FEB5 09 1 198 FEB4 3C 1 197 FEB4 DivNrLoop: 1 196 FEB2 3E 2F 1 195 FEB2 DigitLoop: 1 194 FEB2 1 193 FEB2 1 192 FEB1 C9 1 191 FEAE CD 74 FE 1 190 FEAC DD 09 1 189 FEA9 01 01 F8 1 188 FEA8 7A 1 187 FEA7 D1 1 186 FEA4 CD 74 FE 1 185 FEA3 D5 1 184 FEA2 7B 1 183 FEA2 PrintNo: 1 182 FEA2 1 181 FEA1 57 1 180 FE9E CD B2 FE 1 179 FE9B 01 FF FF 1 178 FE9A 5F 1 177 FE97 CD B2 FE 1 176 FE94 01 F6 FF 1 175 FE92 26 00 1 174 FE91 6F 1 173 FE91 N2DEC: 1 172 FE91 ;OUT: DE = 2 digit representation of A 1 171 FE91 ;IN : A = number 1 170 FE91 1 169 FE91 1 168 FE90 C9 1 167 FE90 1 166 FE8E 10 F7 1 165 FE8D 23 1 164 FE8B DD 19 1 163 FE88 DD 77 00 1 162 FE87 7E 1 161 FE87 PrintLine: 1 160 FE87 1 159 FE85 06 08 1 158 FE82 11 00 01 1 157 FE81 19 1 156 FE80 29 1 155 FE7F 29 1 154 FE7E 29 1 153 FE7D 6F 1 152 FE7B 26 00 1 151 FE79 D6 20 1 150 FE78 14 1 149 FE74 ED 5B 36 5C 1 148 FE74 1 147 FE74 PrintChar: 1 146 FE74 ;IN: IX = address, A = char 1 145 FE74 1 144 FE73 C9 1 143 FE70 CD 91 FE 1 142 FE6C DD 21 1E 40 1 141 FE69 3A BC FE 1 140 FE66 CD 74 FE 1 139 FE62 DD 21 1D 40 1 138 FE60 3E 3A 1 137 FE5D CD 91 FE 1 136 FE59 DD 21 1B 40 1 135 FE56 3A BD FE 1 134 FE53 CD 74 FE 1 133 FE4F DD 21 1A 40 1 132 FE4D 3E 3A 1 131 FE4A CD 91 FE 1 130 FE46 DD 21 18 40 1 129 FE43 3A BE FE 1 128 FE43 1 127 FE41 10 FC 1 126 FE40 23 1 125 FE3F 77 1 124 FE3F FillAttr: 1 123 FE3D 06 08 1 122 FE3B F6 40 1 121 FE3A 7E 1 120 FE37 21 18 58 1 119 FE37 Print: 1 118 FE37 1 117 FE34 32 BE FE 1 116 FE33 AF 1 115 FE31 20 04 1 114 FE2F FE 18 1 113 FE2C 32 BE FE 1 112 FE2B 3C 1 111 FE28 3A BE FE 1 110 FE28 1 109 FE25 32 BD FE 1 108 FE24 AF 1 107 FE22 20 13 1 106 FE20 FE 3C 1 105 FE1D 32 BD FE 1 104 FE1C 3C 1 103 FE19 3A BD FE 1 102 FE19 1 101 FE16 32 BC FE 1 100 FE15 AF 1 099 FE13 20 22 1 098 FE11 FE 3C 1 097 FE0E 32 BC FE 1 096 FE0D 3C 1 095 FE0A 3A BC FE 1 094 FE0A Payload: 1 093 FE0A 1 092 FE0A 1 091 FE0A 1 090 FE07 C3 38 00 1 089 FE06 F1 1 088 FE05 E1 1 087 FE04 C1 1 086 FE03 D1 1 085 FE01 DD E1 1 084 FE01 1 083 FDFE CD 37 FE 1 082 FDFE 1 081 FDFB 32 BB FE 1 080 FDFB Clean: 1 079 FDFA AF 1 078 FDFA 1 077 FDF7 CD 0A FE 1 076 FDF7 1 075 FDF5 20 04 1 074 FDF3 FE 32 1 073 FDF2 3C 1 072 FDEF 3A BB FE 1 071 FDEF 1 070 FDED DD E5 1 069 FDEC D5 1 068 FDEB C5 1 067 FDEA E5 1 066 FDE9 F5 1 065 FDE8 F3 1 064 FDE8 1 063 FDE8 IntRoutine: 1 062 FDE8 1 061 FDE8 1 060 FDE8 StartIntRoutine: 1 059 FDE8 1 058 FDE8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1 057 FDE8 ;The interrupt handler part 1 056 FDE8 1 055 FDE8 1 054 FDE8 EndLdr: 1 053 FDE7 C9 1 052 FDE7 1 051 FDE6 FB 1 050 FDE4 ED 5E 1 049 FDE2 ED 47 1 048 FDE0 3E 3B 1 047 FDDF F3 1 046 FDDF 1 045 FDDF 1 044 FDDD ED B0 1 043 FDDA 01 D7 00 1 042 FDD9 09 1 041 FDD6 01 15 00 1 040 FDD5 E1 1 039 FDD4 3B 1 038 FDD3 3B 1 037 FDD3 Overhead: 1 036 FDD0 CD 52 00 1 035 FDD0 1 034 FDD0 1 033 FDCD 32 FF FF 1 032 FDCB 3E 18 1 031 FDC8 DD 72 02 1 030 FDC5 DD 73 01 1 029 FDC1 DD 36 00 C3 1 028 FDBD DD 21 F4 FF 1 027 FDBA 11 E8 FD 1 026 FDBA start: 1 025 0000 1 024 0000 1 023 0000 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 1 022 0000 ;The setup part 1 021 0000 1 020 0000 1 019 0000 JP_ADDR 1 018 0000 ROM_RET 1 017 0000 ROM_INT_VEC 1 016 0000 ROM_INT_HANDLER 1 015 0000 JR_OPCODE 1 014 0000 JP_OPCODE 1 013 0000 TICS_PER_SEC 1 012 0000 FNT_TBL_ADDR 1 011 0000 SCR_OFF 1 010 0000 ISR_ADDR 1 009 0000 1 008 0000 ;The first byte of the ROM is a DI, F3 hex, so the JR will jump to FFF4, where a long JP to the actual interrupt routine is put. 1 007 0000 ;A useful but not so much used trick on the Spectrum is to make the table contain FF's (or use the ROM for this) and put a byte 18 hex, the opcode for JR, at FFFF. 1 006 0000 ;Taken from http://www.nvg.ntnu.no/sinclair/faq/tech_z80.html#INTERRUPTS 1 005 0000 1 004 0000 ;It uses the trick explained below to minimize the RAM usage. This doesn't work with IF1 because of paging...Use the first version in this case. 1 003 0000 ;Interrupt based clock, v2, (C) George Chirtoaca, August 2007. 1 002 0000 1 001 0000