1 2 ; LST OFF 3 4 ******************************** 5 * * 6 * DATAS ET CHAINES EN BANK 2 * 7 * (C)1990 BY DECKARD * 8 * * 9 ******************************** 10 * 11 12 ORG $1000 13 14 BK2_DATAS EQU $F880 15 CPT EQU $6 ; ET $7 16 CPT2 EQU $8 ; ET $9 17 18 * RECOPIE DATAS EN BANK2 19 1000: AD 83 C0 20 LDA $C083 ; BK2 LECT+ECR 1003: AD 83 C0 21 LDA $C083 22 1006: A9 38 23 LDA #IN_BANK2 100A: 85 06 25 STA CPT 100C: 84 07 26 STY CPT+1 100E: A9 80 27 LDA #BK2_DATAS 1012: 85 08 29 STA CPT2 1014: 84 09 30 STY CPT2+1 31 1016: A0 00 32 LDY #0 1018: B1 06 33 RECOP LDA (CPT),Y 101A: 91 08 34 STA (CPT2),Y 101C: E6 06 35 INC CPT ; INCREMENTE VALEUR LOW 101E: D0 02 36 BNE NEXT_INC 1020: E6 07 37 INC CPT+1 1022: E6 08 38 NEXT_INC INC CPT2 1024: D0 02 39 BNE TEST_FIN 1026: E6 09 40 INC CPT2+1 ; INCREMENTE VALEUR HIGH 1028: A5 08 41 TEST_FIN LDA CPT2 ; COMPARE LOW 102A: C9 BB 42 CMP #FINDATA 1032: D0 E4 46 BNE RECOP ; PAS FINI 47 1034: 8D 81 C0 48 STA $C081 1037: 60 49 RTS 50 51 IN_BANK2 52 53 ORG $F880 54 55 * DATAS POUR ANALYSE OMBRE 56 F880: 3B 30 31 58 ORDRE DFB 59,48,49,50,61,72,71,70,58,47,36,37 F883: 32 3D 48 47 46 3A 2F 24 F88B: 25 F8D1: 45 FB 47 68 CASES DA CASE12,CASE13,CASE14,CASE15,CASE16 F8D4: FB 49 FB 4B FB 4D FB FB84: 0C 0C 0F 184 KELPACK DFB 12,12,15,16,18,14 ; A FB87: 10 12 0E FC74: 73 5D 50 229 NOPACK DFB 115,93,80,81,107,30,105,78,103 FC77: 51 6B 1E 69 4E 67 FC87: EB FC FC 234 MESSAGE DA MCOMBAT,EST,OUEST,NORD,SUD,IMPOSS FC8A: FC 00 FD 06 FD 0B FD 0F FC92: FD FFBB: FF 302 FINDATA HEX FF ; NE PAS EFFACER Object saved as BK2.DATAS,A$1000,L$0774 --End assembly, 1908 bytes, Errors: 0