Serious Magazine 12/Serious_Magazine_12_2003_01_07_Dial_pl_Side_B.atr/stuff2.arc/CLOCKSYS.TXT

Text File | 1988-09-01 | 4KB | 1 lines

* DTA A(FFFA),A(0580),A(0617)¢¢0580 LDA 0000 (EXTENDED)¢0583 STA 063F¢0586 JSR 07F1 (JEXT_ON)¢0589 JSR 05EE¢058C BCC 05AB¢058E JSR 07F4 (JEXT_OFF)¢0591 JSR 0000 (PRINTF)¢0594 DTA C'R-Time 8 not present'¢05A8 DTA B(9B),B(00)¢05AA RTS¢¢05AB LDA 0753 (HANDTAB+03)¢05AE BNE 05E0¢05B0 LDA 05E3¢05B3 STA 0752 (HANDTAB+02)¢05B6 LDA 05E4¢05B9 STA 0753 (HANDTAB+03)¢05BC LDA D301¢05BF PHA¢05C0 AND #FE¢05C2 STA D301¢05C5 LDX #05¢05C7 LDA 05E8,X¢05CA STA FFC0,X (VGETTD/VSETTD)¢05CD DEX¢05CE BPL 05C7¢05D0 PLA¢05D1 STA D301¢05D4 LDA 05E5¢05D7 LDX 05E6¢05DA JSR 0000 (S_ADDIZ)¢05DD DEC 0000 (INSTALL)¢05E0 JMP 07F4¢¢05E3 DTA A(0620),A(0641)¢05E7 DTA B(00)¢05E8 JMP 061B¢05EB JMP 0618¢¢05EE LDA #01¢05F0 LDX #0F¢05F2 JSR 00CC¢05F5 LDY #05¢05F7 LDA #04¢05F9 STA 05E7¢05FC LDX #07¢05FE JSR 00CC¢0601 JSR 0086¢0604 CMP 05E7¢0607 BEQ 060E¢0609 DEY¢060A BNE 05F7¢060C SEC¢060D RTS¢060E DEC 05E7¢0611 LDA 05E7¢0614 BNE 05FC¢0616 CLC¢0617 RTS¢¢¢* DTA A(FFFE),B(01),B(02)¢* DTA A(0000),A(012E)¢¢0000 CPY #64¢0002 BEQ 000C¢0004 CPY #65¢0006 BEQ 0021¢0008 LDA #84¢000A SEC¢000B RTS¢¢* GETTD¢000C PHA¢000D JSR 0068¢0010 PLA¢0011 BMI 001E¢0013 LDX #05¢0015 LDA 000D,X (COMTAB+0D=DATER/TIMER)¢0018 STA 077B,X (DATE/TIME)¢001B DEX¢001C BPL 0015¢001E LDA #00¢0020 RTS¢¢* SETTD¢0021 TAX¢0022 BMI 002F¢0024 LDX #05¢0026 LDA 077B,X (DATE/TIME)¢0029 STA 000D,X (COMTAB+0D=DATER/TIMER)¢002C DEX¢002D BPL 0026¢002F JSR 0035¢0032 LDA #00¢0034 RTS¢¢0035 LDA #01¢0037 LDX #0F¢0039 JSR 00CC¢003C LDA #05¢003E STA 012B¢0041 LDX #05¢0043 LDY 0080,X¢0046 LDA 000D,Y (COMTAB+0D=DATER/TIMER)¢0049 JSR 00CC¢004C DEX¢004D BPL 0043¢004F LDX #05¢0051 JSR 0086¢0054 LDY 0080,X¢0057 CMP 000D,Y (COMTAB+0D=DATER/TIMER)¢005A BNE 0061¢005C DEX¢005D BPL 0051¢005F CLC¢0060 RTS¢0061 DEC 012B¢0064 BNE 0041¢0066 SEC¢0067 RTS¢¢0068 LDX #05¢006A JSR 0086¢006D LDY 0080,X¢0070 STA 000D,Y (COMTAB+0D=DATER/TIMER)¢0073 JSR 0086¢0076 CMP 000D,Y (COMTAB+0D=DATER/TIMER)¢0079 BNE 0068¢007B DEX¢007C BPL 006A¢007E CLC¢007F RTS¢¢0080 DTA B(05),B(04),B(03),B(00)¢0084 DTA B(01),B(02)¢¢0086 STX 00C9¢0089 STY 00C7¢008C LDY AFFF¢008F JSR 010E¢0092 CPY #08¢0094 BNE 00A2¢0096 STX D5B8¢0099 LDA D5B8¢009C LDX D5B8¢009F JMP 00AB¢00A2 STX D5B9¢00A5 LDA D5B9¢00A8 LDX D5B9¢00AB AND #0F¢00AD STA 012D¢00B0 ASL @¢00B1 ASL @¢00B2 ADC 012D¢00B5 ASL @¢00B6 STA 012D¢00B9 TXA¢00BA AND #0F¢00BC ADC 012D¢00BF CPY #10¢00C1 BCS 00C6¢00C3 STA D500,Y¢00C6 LDY #00¢00C8 LDX #00¢00CA CLI¢00CB RTS¢¢00CC STY 0109¢00CF STX 010B¢00D2 LDY AFFF¢00D5 LDX #FF¢00D7 INX¢00D8 SEC¢00D9 SBC #0A¢00DB BCS 00D7¢00DD ADC #0A¢00DF PHA¢00E0 JSR 010E¢00E3 LDA 010B¢00E6 CPY #08¢00E8 BNE 00F7¢00EA STA D5B8¢00ED PLA¢00EE STX D5B8¢00F1 STA D5B8¢00F4 JMP 0101¢00F7 STA D5B9¢00FA PLA¢00FB STX D5B9¢00FE STA D5B9¢0101 CPY #10¢0103 BCS 0108¢0105 STA D500,Y¢0108 LDY #00¢010A LDX #00¢010C CLI¢010D RTS¢¢010E SEI¢010F LDA #00¢0111 STA 012C¢0114 CPY #08¢0116 BNE 011E¢0118 LDA D5B8¢011B JMP 0121¢011E LDA D5B9¢0121 AND #0F¢0123 BEQ 012A¢0125 DEC 012C¢0128 BNE 0114¢012A RTS¢¢012B DTA B(00),B(00),B(00)¢¢¢* DTA A(FFFE),B(02),B(00)¢* DTA A(0618),A(002F)¢¢I_SETTD EQU *¢0618 LDY #65¢061A DTA (2C) BIT ¢I_GETTD EQU *¢061B LDY #64¢061D LDA #FF¢061F DTA B(2C) BIT¢¢0620 LDA #00¢0622 BIT 0640¢0625 BMI 063D¢0627 PHA¢0628 LDA 063F¢062B JSR 07F1 (JEXT_ON)¢062E LDA #FF¢0630 STA 0640¢0633 PLA¢0634 JSR 0000¢0637 INC 0640¢063A JMP 07F4 (JEXT_OFF)¢063D SEC¢063E RTS¢¢063F DTA B(00)¢0640 DTA B(00)¢¢0641 LDA #00¢0643 STA 0640¢0646 RTS¢¢* DTA A(FFFD),B(02),A(000F)¢* DTA B(FD),A(0584)¢* DTA B(5F),B(02),B(04),B(03)¢* DTA B(FE),B(02)¢* DTA B(0B),B(06),B(08),B(07)¢* DTA B(0C)¢* DTA B(FC)¢¢* DTA A(FFFD),B(01),A(0027)¢* DTA B(FD),A(05F3)¢* DTA B(0C),B(03)¢* DTA B(FE),B(01)¢* DTA B(0E),B(22),B(0A),B(05)¢* DTA B(05),B(06),B(08),B(03)¢* DTA B(0D),B(09),B(03),B(06)¢* DTA B(13),B(03),B(06),B(10)¢* DTA B(0E),B(05),B(04),B(06)¢* DTA B(10),B(03),B(11),B(03)¢* DTA B(11),B(1D),B(0A),B(0A)¢* DTA B(FE),B(02)¢* DTA B(1D)¢* DTA B(FC)¢¢* DTA A(FFFB),C'EXTENDED',A(0004)¢* DTA B(FD),A(0581)¢* DTA B(FC)¢¢* DTA A(FFFB),C'PRINTF  ',A(0004)¢* DTA B(FD),A(0592)¢* DTA B(FC)¢¢* DTA A(FFFB),C'S_ADDIZ ',A(0004)¢* DTA B(FD),A(05DB)¢* DTA B(FC)¢¢* DTA A(FFFB),C'INSTALL ',A(0004)¢* DTA B(FD),A(05DE)¢* DTA B(FC)¢¢* DTA A(FFFB),C'COMTAB  ',A(0009)¢* DTA B(FE),B(01)¢* DTA B(16),B(14),B(1D),B(11)¢* DTA B(19),B(06)¢* DTA B(FC)¢¢* DTA A(FFFC),B(02),A(061B)¢* DTA C'I_GETTD '¢¢* DTA A(FFFC),B(02),A(0618)¢* DTA C'I_SETTD '¢