main
|
Last change
on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago |
|
Add that collection of 3rdparty source I had lying on my disk for some time...
git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5
|
-
Property mode
set to
100644
|
|
File size:
2.6 KB
|
| Line | |
|---|
| 1 | ****************************************
|
|---|
| 2 | * Conversion du mode RAW en bitmap16 *
|
|---|
| 3 | ****************************************
|
|---|
| 4 | * Doctor Lô le 29-4-91 *
|
|---|
| 5 | ****************************************
|
|---|
| 6 |
|
|---|
| 7 | P0 EQU 0 bitplan0
|
|---|
| 8 | P1 EQU 4000 décalage bitplan1
|
|---|
| 9 | P2 EQU 2*P1 décalage bitplan2
|
|---|
| 10 | P3 EQU 3*P1 décalage bitplan3
|
|---|
| 11 |
|
|---|
| 12 | DIR EQU $9E variables = les 2
|
|---|
| 13 | Z EQU $FE octets courants
|
|---|
| 14 |
|
|---|
| 15 | ORG $9E00
|
|---|
| 16 | G ORCC #80
|
|---|
| 17 | PSHS DP
|
|---|
| 18 | LDA #DIR
|
|---|
| 19 | TFR A,DP
|
|---|
| 20 |
|
|---|
| 21 | LDY #P1 octets par plan
|
|---|
| 22 | LDX #$A000 source
|
|---|
| 23 | LDU #$4000 destination
|
|---|
| 24 |
|
|---|
| 25 | CONVER CLR <Z
|
|---|
| 26 | CLR <Z+1
|
|---|
| 27 |
|
|---|
| 28 | LDD #$C010
|
|---|
| 29 | BITA P0,X
|
|---|
| 30 | BEQ *+6
|
|---|
| 31 | ORB <Z
|
|---|
| 32 | STB <Z
|
|---|
| 33 | LDB #32
|
|---|
| 34 | BITA P1,X
|
|---|
| 35 | BEQ *+6
|
|---|
| 36 | ORB <Z
|
|---|
| 37 | STB <Z
|
|---|
| 38 | LDB #64
|
|---|
| 39 | BITA P2,X
|
|---|
| 40 | BEQ *+6
|
|---|
| 41 | ORB <Z
|
|---|
| 42 | STB <Z
|
|---|
| 43 | LDB #128
|
|---|
| 44 | BITA P3,X
|
|---|
| 45 | BEQ *+6
|
|---|
| 46 | ORB <Z
|
|---|
| 47 | STB <Z
|
|---|
| 48 |
|
|---|
| 49 | LDD #$3001
|
|---|
| 50 | BITA P0,X
|
|---|
| 51 | BEQ *+6
|
|---|
| 52 | ORB <Z
|
|---|
| 53 | STB <Z
|
|---|
| 54 | LDB #2
|
|---|
| 55 | BITA P1,X
|
|---|
| 56 | BEQ *+6
|
|---|
| 57 | ORB <Z
|
|---|
| 58 | STB <Z
|
|---|
| 59 | LDB #4
|
|---|
| 60 | BITA P2,X
|
|---|
| 61 | BEQ *+6
|
|---|
| 62 | ORB <Z
|
|---|
| 63 | STB <Z
|
|---|
| 64 | LDB #8
|
|---|
| 65 | BITA P3,X
|
|---|
| 66 | BEQ *+6
|
|---|
| 67 | ORB <Z
|
|---|
| 68 | STB <Z
|
|---|
| 69 |
|
|---|
| 70 | LDD #$0C10
|
|---|
| 71 | BITA P0,X
|
|---|
| 72 | BEQ *+6
|
|---|
| 73 | ORB <Z+1
|
|---|
| 74 | STB <Z+1
|
|---|
| 75 | LDB #32
|
|---|
| 76 | BITA P1,X
|
|---|
| 77 | BEQ *+6
|
|---|
| 78 | ORB <Z+1
|
|---|
| 79 | STB <Z+1
|
|---|
| 80 | LDB #64
|
|---|
| 81 | BITA P2,X
|
|---|
| 82 | BEQ *+6
|
|---|
| 83 | ORB <Z+1
|
|---|
| 84 | STB <Z+1
|
|---|
| 85 | LDB #128
|
|---|
| 86 | BITA P3,X
|
|---|
| 87 | BEQ *+6
|
|---|
| 88 | ORB <Z+1
|
|---|
| 89 | STB <Z+1
|
|---|
| 90 |
|
|---|
| 91 | LDD #$0301
|
|---|
| 92 | BITA P0,X
|
|---|
| 93 | BEQ *+6
|
|---|
| 94 | ORB <Z+1
|
|---|
| 95 | STB <Z+1
|
|---|
| 96 | LDB #2
|
|---|
| 97 | BITA P1,X
|
|---|
| 98 | BEQ *+6
|
|---|
| 99 | ORB <Z+1
|
|---|
| 100 | STB <Z+1
|
|---|
| 101 | LDB #4
|
|---|
| 102 | BITA P2,X
|
|---|
| 103 | BEQ *+6
|
|---|
| 104 | ORB <Z+1
|
|---|
| 105 | STB <Z+1
|
|---|
| 106 | LDB #8
|
|---|
| 107 | BITA P3,X
|
|---|
| 108 | BEQ *+6
|
|---|
| 109 | ORB <Z+1
|
|---|
| 110 | STB <Z+1
|
|---|
| 111 |
|
|---|
| 112 | LDA $E7C3 premier octet en
|
|---|
| 113 | ORA #1 RAM A
|
|---|
| 114 | STA $E7C3
|
|---|
| 115 | LDB <Z
|
|---|
| 116 | STB ,U
|
|---|
| 117 | ANDA #254 deuxième octet en
|
|---|
| 118 | STA $E7C3 RAM B
|
|---|
| 119 | LDB <Z+1
|
|---|
| 120 | STB ,U+ destination
|
|---|
| 121 | LEAX 1,X source (Bitplan 1)
|
|---|
| 122 | LEAY -1,Y compteur
|
|---|
| 123 | LBNE CONVER
|
|---|
| 124 |
|
|---|
| 125 | CMPU #$5F40 première moitié
|
|---|
| 126 | BLO *+5
|
|---|
| 127 | LDU #$4000 ou fin d'image ?
|
|---|
| 128 | STU CONVER-2
|
|---|
| 129 | PULS DP,PC
|
|---|
| 130 |
|
|---|
| 131 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
