source: thomson/code/3rdparty/sources1-hmel/DEMO-SP.ASM@ ceffc47

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: 1.6 KB
Line 
1 TITLE TO-DEMO:S/P
2* ---------------------------------
3 PAGE
4
5****************************************
6* *
7* S/P *
8* *
9****************************************
10
11
12*=======================================
13* S/P test de localisation de la souris
14* dans un carreau
15* Entrée: XH rangée début ]
16* XL colonne début du carreau
17* YH hauteur ]
18* YL largeur ]
19* Sortie: CY 1 souris dans le carreau
20* 0 ... en dehors
21*=======================================
22
23SOUROK PSHS D,X,Y,U
24 LEAS -5,S
25HORDOT SET 0
26VERDOT SET 2
27MULTH SET 4
28PA SET 5
29PB SET 6
30PXH SET 7
31PXL SET 8
32PYH SET 9
33PYL SET 10
34*---------------------------------------
35
36 LDB #8 coef de * horiz
37 LDA SCRMOD
38 CMPA #$40
39 BNE RGMU ->
40 LDB #4 bit map 16
41RGMU STB MULTH,S
42
43 LDA #8
44 LDB PXH,S
45 MUL
46 STD HORDOT,S
47 CMPD REGY
48 BGT SELDN hors haut ->
49 LDA MULTH,S
50 LDB PXL,S
51 MUL
52 STD VERDOT,S
53 CMPD REGX
54 BGT SELDN hors gauche ->
55 LDA #8
56 LDB PYH,S
57 MUL
58 ADDD HORDOT,S
59 CMPD REGY
60 BLE SELDN hors bas ->
61 LDA MULTH,S
62 LDB PYL,S
63 MUL
64 ADDD VERDOT,S
65 CMPD REGX
66 BLE SELDN hors droit ->
67 ORCC #$01 dedans
68 BRA SELDF ->
69SELDN ANDCC #$FE hors
70
71SELDF LEAS 5,S
72 PULS D,X,Y,U,PC
Note: See TracBrowser for help on using the repository browser.