FABBOOT.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

File size: 1.4 KB

Line
1	****************************************
2	* BOOT / FAB-Monitor *
3	****************************************
4
5	ORG $6200
6
7	ORCC #80 stop interruptions
8	LDS #$60CC init. pile système
9	LDX #$6280 charge le menu
10	LDY #$0002 (secteur 00.02)
11	LDD #$4158 exécution finale
12	PSHS D
13	LDD #$0700 (face0;7 secteurs)
14	BSR DISK
15	LDD >$6286
16	JMP D,X
17	FCC " "
18	FCC "FAB-Monitor v3.1 / BOOT "
19	FCC " (c) by Laurent Hiriart "
20	FCC " "
21
22	DISK LDU #$6048
23	STB 1,U face : B
24	LDB #2
25	STB ,U
26	STY 3,U piste.secteur : Y
27	STX 7,U buffer : X
28	LDB 4,U secteur -> B
29	CHARGE JSR $E004
30	BCS CHARGE
31	CMPB #16 fin piste ?
32	BNE NXTSEC
33	INC 3,U
34	CLRB
35	NXTSEC INCB
36	STB 4,U
37	INC 7,U
38	DECA
39	BNE CHARGE
40	RTS
41
42	****************************************
43	* Valeur-test: "BASIC2.." complémenté: *
44	****************************************
45
46	FDB $BEBF,$ADB7,$BDCE,$A200
47
48	* 128 octets de texte :
49
50	FCC "----------------"
51	FCC "FAB-Monitor v3.1"
52	FCC "----------------"
53	FCC "Distribue par : "
54	FCC "ASCI, 365 Chemin"
55	FCC " des Montants, "
56	FCC " 54690 EULMONT "
57	FCC "Tel: 83.22.84.14"
58
59	END

Note: See TracBrowser for help on using the repository browser.