mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-22 14:30:24 +00:00
151 lines
4.2 KiB
ArmAsm
151 lines
4.2 KiB
ArmAsm
;------------------------------------------------------------------
|
|
;
|
|
; FILE : SHOWABOUT.S - DOABOUT -
|
|
; -----------
|
|
; RELOGEABLE
|
|
;------------------------------------------------------------------
|
|
List Off
|
|
Gen Off
|
|
Symbol Off
|
|
Keep DoAboutB
|
|
65816 On
|
|
|
|
MCopy ShowAbout.MAC
|
|
|
|
longa on
|
|
longi on
|
|
;...............................................................
|
|
;
|
|
; DoAboutR : About Dialog Box
|
|
;
|
|
;...............................................................
|
|
DoAboutR START
|
|
|
|
brl DoAbout
|
|
|
|
END
|
|
;...............................................................
|
|
;
|
|
; DoAbout : code
|
|
;
|
|
;...............................................................
|
|
DoAbout START
|
|
|
|
phb
|
|
phk
|
|
plb
|
|
;--
|
|
PushLong #0 |une dialog box
|
|
PushLong #AboutDialog
|
|
_GetNewModalDialog
|
|
|
|
PushWord #0 | ok alors adieu
|
|
PushLong #0
|
|
_ModalDialog
|
|
pla
|
|
|
|
_CloseDialog
|
|
|
|
plb
|
|
|
|
rtl
|
|
;--------------------------------------
|
|
; ABOUT DIALOG
|
|
;--------------------------------------
|
|
AboutDialog anop
|
|
dc i'35,30,135,290'
|
|
dc i2'1'
|
|
dc i4'0'
|
|
dc i4'AboutD0' |broderbund software present
|
|
dc i4'AboutD1' |ShowOff
|
|
dc i4'AboutD2' |Created by Crealude
|
|
dc i4'AboutD3' |Programmed by Serge Hervy
|
|
dc i4'AboutD4' |Assisted by Jean-claude Levy
|
|
dc i4'AboutD41' |Version 1.0
|
|
dc i4'AboutD5' | 1987 Denis Friedman Production
|
|
dc i4'AboutD6' |pour le click
|
|
dc i4'0'
|
|
;--
|
|
AboutD0 anop |broder soft presents
|
|
dc i'2'
|
|
dc i'03,22,17,260'
|
|
dc i'15'
|
|
dc i4'AboutTx0'
|
|
dc i'0'
|
|
dc i'0'
|
|
dc i4'0'
|
|
;--
|
|
AboutD1 anop |showoff
|
|
dc i'2'
|
|
dc i'18,98,32,260'
|
|
dc i'15'
|
|
dc i4'AboutTx1'
|
|
dc i'0'
|
|
dc i'0'
|
|
dc i4'0'
|
|
;--
|
|
AboutD2 anop |created
|
|
dc i'2'
|
|
dc i'33,58,47,260'
|
|
dc i'15'
|
|
dc i4'AboutTx2'
|
|
dc i'0'
|
|
dc i'0'
|
|
dc i4'0'
|
|
;--
|
|
AboutD3 anop |pgm
|
|
dc i'2'
|
|
dc i'48,34,62,260'
|
|
dc i'15'
|
|
dc i4'AboutTx3'
|
|
dc i'0'
|
|
dc i'0'
|
|
dc i4'0'
|
|
;--
|
|
AboutD4 anop |jcl
|
|
dc i'2'
|
|
dc i'63,18,77,260'
|
|
dc i'15'
|
|
dc i4'AboutTx4'
|
|
dc i'0'
|
|
dc i'0'
|
|
dc i4'0'
|
|
;--
|
|
AboutD41 anop |Version 1.0
|
|
dc i'2'
|
|
dc i'78,86,89,260'
|
|
dc i'15'
|
|
dc i4'AboutTx41'
|
|
dc i'0'
|
|
dc i'0'
|
|
dc i4'0'
|
|
;--
|
|
AboutD5 anop |1987
|
|
dc i'2'
|
|
dc i'90,02,99,260'
|
|
dc i'15'
|
|
dc i4'AboutTx5'
|
|
dc i'0'
|
|
dc i'0'
|
|
dc i4'0'
|
|
;--
|
|
AboutD6 anop |click
|
|
dc i'1'
|
|
dc i'00,00,99,259'
|
|
dc i'15'
|
|
dc i4'AboutTx6'
|
|
dc i'0'
|
|
dc i'0'
|
|
dc i4'0'
|
|
|
|
AboutTx0 dc i1'28',c'Br',h'BF',c'derbund Software Presents'
|
|
AboutTx1 str 'ShowOff'
|
|
AboutTx2 dc i1'19',c'Created by Cr',h'8E',c'alude'
|
|
AboutTx3 dc i1'25',c'Programmed by Serge Hervy'
|
|
AboutTx4 dc i1'28',c'Assisted by Jean-Claude L',h'8E',c'vy'
|
|
AboutTx41 str ' Version 1.1'
|
|
AboutTx5 dc i1'35',c'(',h'43',c') 1988 Denis Friedman Productions'
|
|
AboutTx6 str ' '
|
|
|
|
END
|