L0B0B78 ENT LDY #$0000 L0B0B7B LDA L020266,Y AND #$00FF STA L027915,Y BEQ L0B0B89 INY BRA L0B0B7B L0B0B89 SEP #$30 STY L027914 REP #$30 LDX #L02788E JSL L03232B CMP #$0001 BNE L0B0BAC LDA L027914 AND #$00FF TAY L0B0BA3 LDA L027915,Y STA L020266,Y DEY BPL L0B0BA3 L0B0BAC RTL SEG F98E L027C95 ENT DB $31 DA L0B0BFF DB $32 DA L0B0C08 DB $33 DA L0B0C19 DB $34 DA L0B0C4E ; 4 YEAR ALL FOUR DIGITS DB $35 DA L0B0C54 ; 5 YEAR LAST TWO DIGITS DB $36 DA L0B0C67 DB $37 DA L0B0C70 DB $38 DA L0B0C7F DB $39 DA L0B0C94 DB $FF L0B0BAD ENT PHA PHA PHA PHA _ReadTimeHex STA L0201D5 BCS L0B0BF9 SEP #$20 PLA PLA STA L027D1D ; 32 = 50 = MINUTES PLA STA L027D1B ; 10 = 16 = HOUR PLA STA L027D19 ; 77 = 119 (1900 + 119 = 2019) = YEAR PLA INC STA L027D17 ; 16 = 22 = DAY PLA INC STA L027D15 ; 1 = 1 = MONTH REP #$20 PLA SEG B IS LEN CB9 AT 11/D1F5 + C4E = DE43 END OF SEGMENT IS DEAE SI >= 64 ALORS SHOW 14 YEAR = YEAR - 64 SINON SHOW 13 11/DEF0: AD 19 7D LDA 7D19 11/DEF3: C9 64 00 CMP #0064 11/DEF6: B0 04 BCS DEFC {+04} 11/DEF8: A9 13 00 LDA #0013 11/DEFB: 60 RTS 11/DEFC: 38 SEC 11/DEFD: E9 64 00 SBC #0064 11/DF00: 8D 19 7D STA 7D19 11/DF03: A9 14 00 LDA #0014 11/DF06: 60 RTS 11/DE43: 20 F0 DE JSR DEF0 11/0010:00 E1 1B 00 5D 18 10 00-.a..]... * 11/0018:7A FA EE 5D 18 DA 5A 22-zzn].ZZ" *! 11/FF80: AD 19 7D LDA 7D19 11/FF83: C9 64 00 CMP #0064 11/FF86: B0 04 BCS FF8C {+04} 11/FF88: A9 13 00 LDA #0013 11/FF8B: 60 RTS 11/FF8C: A9 14 00 LDA #0014 11/FF8F: 60 RTS 11/FF90: AD 19 7D LDA 7D19 11/FF93: C9 64 00 CMP #0064 11/FF96: B0 01 BCS FF99 {+01} 11/FF98: 60 RTS 11/FF99: 38 SEC 11/FF9A: E9 64 00 SBC #0064 11/FF9D: 8D 19 7D STA 7D19 11/FFA0: 60 RTS ! * 11/DE43: A9 13 00 LDA #0013 11/DE46: 20 84 DE JSR DE84 11/DE49: AD 19 7D LDA 7D19 11/DE4C: C9 0A 00 CMP #000A 11/DE4F: B0 08 BCS DE59 {+08} 11/DE51: 48 PHA 11/DE52: A9 00 00 LDA #0000 11/DE55: 20 84 DE JSR DE84 11/DE58: 68 PLA 11/DE59: 4C 84 DE JMP DE84 11/DE5C: AD 1B 7D LDA 7D1B 11/DE5F: 29 FF 00 AND #00FF 11/DE62: 4C 84 DE JMP DE84 11/DE65: AD 1B 7D LDA 7D1B 11/DE68: C9 0D 00 CMP #000D 11/DE6B: 90 04 BCC DE71 {+04} 11/DE6D: 38 SEC 11/DE6E: E9 0C 00 SBC #000C 11/DE71: 4C 84 DE JMP DE84 11/DE74: AD 1D 7D LDA 7D1D *DE43:20 FF80 *DE49:20 FF90 The Flaming Bird Disassembler Written by Ferox - (c) 1994 Phoenix corporation SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS Infos on current segment Byte count ....... $001E00 Reserved space ... $000000 Segment length ... $000CB9 Unused .......... $00 Label length ..... $0A Number length .... $04 OMF version ...... $01 Bank size ........ $010000 Kind ............. $0000 (Code) Unused .......... $0000 Origin ........... $000000 Align ............ $000000 Number sex ....... $00 Unused .......... $00 Segment number.... $000B Entry ............ $000000 Load name ........ Segment name ..... BRUCEB SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS > Press any key SEGMENT START AT 44C00 LENGTH IS 0CB9 HEADER IS 45 END OF DATA IS 458FD DICO STARTS AT 458FE ON AJOUTE 28D BYTES SOIT $1C CB9 + 1D = CD5 ON CHANGE DANS L'ENTETE OMF ON ENLEVE LES $1C BYTES A LA FIN DU PROGRAMME ON SAUVE ON REGARDE ON DOIT MAINTENANT MODIFIER DEUX ENTREES 0C4E: LDX #$0013 PAR JSR $0CB9 0C54: LDA $027D19 PAR JSR $0CC7 PLUS LES MODIFS SUIVANTES : 0B/0CBC: AD197D LDA $7D19 <= $CBD 0B/0CC7: AD197D LDA $7D19 <= $CC8 45893: A2 13 00 => 20 B9 0C THAT ONE IS NOT IN THE DICTIONARY, WE MUST ADD IT AS A $F5 RECORD 468B1:F5 02 00 4F 0C B9 0C 45899: AD 19 7D => 20 C7 0C THAT ONE IS IN THE DICTIONARY AS A $F6 RECORD WE MUST CHANGE IT AND ADD A $F5 RECORD FIND IT F6 02 00 55 0C 02 19 7D WE CHANGE IT FOR THE NEXT REFERENCE F6 02 00 BD 0C 02 19 7D WE ADD ANOTHER FILE AT THE END OF THE FILE F6 02 00 C8 0C 02 19 7D WE FINALLY ADD THE $F5 RECORD FOR THE CHANGE AT $C55 F5 02 00 55 0C C7 0C BEFORE SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 0B/0C4E: A91300 LDA #$0013 ; Put 19 0B/0C51: 208F0C JSR $0C8F ; Display century 0B/0C54: AD197D LDA $027D19 ; Get year 0B/0C57: C90A00 CMP #$000A 0B/0C5A: B008 BCS $0C64 0B/0C5C: 48 PHA 0B/0C5D: A90000 LDA #$0000 0B/0C60: 208F0C JSR $0C8F 0B/0C63: 68 PLA 0B/0C64: 4C8F0C JMP $0C8F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS AFTER SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 0B/0C4E: 20B90C JSR $0CB9 ; Check year 0B/0C51: 208F0C JSR $0C8F ; Display century 0B/0C54: 20C70C JSR $0CC7 ; Correct year 0B/0C57: C90A00 CMP #$000A 0B/0C5A: B008 BCS $0C64 0B/0C5C: 48 PHA 0B/0C5D: A90000 LDA #$0000 0B/0C60: 208F0C JSR $0C8F 0B/0C63: 68 PLA 0B/0C64: 4C8F0C JMP $0C8F ... 0B/0CB9: A21300 LDX #$0013 0B/0CBC: AD197D LDA $027D19 0B/0CBF: C96400 CMP #$0064 0B/0CC2: 9001 BCC $0CC5 0B/0CC4: E8 INX 0B/0CC5: 8A TXA 0B/0CC6: 60 RTS 0B/0CC7: AD197D LDA $027D19 0B/0CCA: C96400 CMP #$0064 0B/0CCD: B001 BCS $0CD0 0B/0CCF: 60 RTS 0B/0CD0: 38 SEC 0B/0CD1: E96400 SBC #$0064 0B/0CD4: 60 RTS