mirror of
https://github.com/antoinevignau/source.git
synced 2025-03-05 18:31:24 +00:00
Original source code
This commit is contained in:
Antoine Vignau
parent
a1474a305d
commit
97e884338c
@ -1 +0,0 @@
|
||||
echo assemblage SHOWOFF {1} {2} {3} {4} {5} {6} {7}
unset exit
if {#} != 0
assemble showoff.s names=({1} {2} {3} {4} {5} {6} {7}) >so.err1
else
assemble showoff.s >so.err1
end
if {status} != 0
echo erreur d'assemblage
edit tp.err1
exit
else
echo ok assemblage - crunchage
end
if {#} != 0
crunch showoff
if {status} != 0
echo PFFFFFF ! ya rien a cruncher ici !
exit
else
echo MMMMIAM... burp !!
end
end
|
||||
@ -1 +0,0 @@
|
||||
keep /dd/orca/bb/showoff
symbol off
link/all ShowOff
segment/dynamic DOBACKG
link/all DOBACKG
segment/dynamic IconEditor
link/all IconEditor
segment/dynamic DoPrinter
link/all DoPrinter
segment/dynamic DoTransit
link/all DoTransit
segment/dynamic DoOrders
link/all DoOrders
segment/dynamic DoSetUp
link/all DoSetUp
segment/dynamic DoCallGH
link/all DoCallGH
segment/dynamic DoSlide
link/all DoSlide
segment/dynamic hls
link/all hls
segment/dynamic DoFormatD
link/all DoFormatD
segment/dynamic DoAboutB
link/all DoAboutB
|
||||
@ -1 +0,0 @@
|
||||
alink so.link >so.err2
filetype showoff $b3
enable rdwn showoff
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab _IMStartUp
&lab ldx #$020B
jsl $E10000
MEND
MACRO
&lab _IMShutDown
&lab ldx #$030B
jsl $E10000
MEND
MACRO
&lab _HexIt
&lab ldx #$2A0B
jsl $E10000
MEND
MACRO
&lab _TLStartUp
&lab ldx #$0201
jsl $E10000
MEND
MACRO
&lab _TLShutDown
&lab ldx #$0301
jsl $E10000
MEND
MACRO
&lab _MMStartUp
&lab ldx #$0202
jsl $E10000
MEND
MACRO
&lab _MMShutDown
&lab ldx #$0302
jsl $E10000
MEND
MACRO
&lab _MTStartUp
&lab ldx #$0203
jsl $E10000
MEND
MACRO
&lab _MTShutDown
&lab ldx #$0303
jsl $E10000
MEND
MACRO
&lab _ReadBParam
&lab ldx #$0C03
jsl $E10000
MEND
MACRO
&lab _FWEntry
&lab ldx #$2403
jsl $E10000
MEND
MACRO
&lab _QUIT ¶ms
&lab jsl $E100A8
dc i2"$29"
dc i4"¶ms"
MEND
MACRO
&lab _TextStartUp
&lab ldx #$020C
jsl $E10000
MEND
MACRO
&lab _TextShutDown
&lab ldx #$030C
jsl $E10000
MEND
MACRO
&lab _WriteCString
&lab ldx #$200C
jsl $E10000
MEND
MACRO
&lab _ReadChar
&lab ldx #$220C
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab long
&lab ANOP
rep #%00110000
longa on
longi on
MEND
MACRO
&lab if4<> &op1,&op2,&bra
&lab ANOP
AIF C:&op2,.a
LCLC &OP2
&OP2 SETC #0
.a
AIF C:&op1,.b
test4= ,&op2
AGO .c
.b
test4= &op1,&op2
.c
AIF C:&bra=0,.e
bne &bra
.e
MEND
MACRO
&lab test4= &adr1,&adr2
&lab ANOP
AIF C:&adr1=0,.b
lda &adr1
.b
AIF C:&adr2=0,.zero
AIF "&adr2"="#0",.zero
LCLC &C2
&C2 AMID &adr2,1,1
cmp &adr2
bne ~x&syscnt
AIF C:&adr1,.c
lda #0
AGO .d
.c
lda^ &adr1
.d
AIF "&C2"="#",.e
cmp &adr2+2
AGO .f
.e
cmp &adr2|-16
.f
~x&syscnt anop
MEXIT
.zero
ora &adr1+2
MEND
MACRO
&lab lda^ &addr,&offset
&lab ANOP
LCLC &C
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset,.offset
lda &addr+2
MEXIT
.offset
lda &addr+2,&offset
MEXIT
.immediate
lda &addr|-16
MEXIT
.zeropage
AIF C:&offset=0,.sans_offset
ldy #&offset+2
lda &addr,y
MEXIT
.sans_offset
ldy #2
lda &addr,y
MEND
MACRO
&lab Println &text
&lab pea x&syscnt|-16
pea x&syscnt
ldx #$200C
jsl $E10000
bra end&syscnt
x&syscnt dc c"&text"
dc i1'13,10,0'
end&syscnt anop
mend
MACRO
&lab if4= &op1,&op2,&bra
&lab ANOP
AIF C:&op2,.a
LCLC &OP2
&OP2 SETC #0
.a
AIF C:&op1,.b
test4= ,&op2
AGO .c
.b
test4= &op1,&op2
.c
AIF C:&bra=0,.e
beq &bra
.e
MEND
MACRO
&lab _ReadLine
&lab ldx #$240C
jsl $E10000
MEND
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab _CloseDialog
&lab ldx #$0C15
jsl $E10000
MEND
MACRO
&lab _ModalDialog
&lab ldx #$0F15
jsl $E10000
MEND
MACRO
&lab _GetNewModalDialog
&lab ldx #$3215
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab _CloseDialog
&lab ldx #$0C15
jsl $E10000
MEND
MACRO
&lab _ModalDialog
&lab ldx #$0F15
jsl $E10000
MEND
MACRO
&lab _GetNewModalDialog
&lab ldx #$3215
jsl $E10000
MEND
MACRO
&lab _GetMouse
&lab ldx #$0C06
jsl $E10000
MEND
MACRO
&lab _TickCount
&lab ldx #$1006
jsl $E10000
MEND
MACRO
&lab _SetPort
&lab ldx #$1B04
jsl $E10000
MEND
MACRO
&lab _SetSolidPenPat
&lab ldx #$3704
jsl $E10000
MEND
MACRO
&lab _PtInRect
&lab ldx #$4F04
jsl $E10000
MEND
MACRO
&lab _FrameRect
&lab ldx #$5304
jsl $E10000
MEND
MACRO
&lab _PaintRect
&lab ldx #$5404
jsl $E10000
MEND
MACRO
&lab _InvalRect
&lab ldx #$3A0E
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab _GetNextEvent
&lab ldx #$0A06
jsl $E10000
MEND
MACRO
&lab _MoveTo
&lab ldx #$3A04
jsl $E10000
MEND
MACRO
&lab _SetForeColor
&lab ldx #$A004
jsl $E10000
MEND
MACRO
&lab _DrawString
&lab ldx #$A504
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
MACRO
&lab _CloseDialog
&lab ldx #$0C15
jsl $E10000
MEND
MACRO
&lab _SetPort
&lab ldx #$1B04
jsl $E10000
MEND
MACRO
&lab _GetPort
&lab ldx #$1C04
jsl $E10000
MEND
MACRO
&lab _SetSolidPenPat
&lab ldx #$3704
jsl $E10000
MEND
MACRO
&lab _PtInRect
&lab ldx #$4F04
jsl $E10000
MEND
MACRO
&lab _FrameRect
&lab ldx #$5304
jsl $E10000
MEND
MACRO
&lab _PaintRect
&lab ldx #$5404
jsl $E10000
MEND
MACRO
&lab _SetPenMode
&lab ldx #$2E04
jsl $E10000
MEND
MACRO
&lab _LineTo
&lab ldx #$3C04
jsl $E10000
MEND
MACRO
&lab _SetTextMode
&lab ldx #$9C04
jsl $E10000
MEND
MACRO
&lab _Line
&lab ldx #$3D04
jsl $E10000
MEND
MACRO
&lab _HiliteControl
&lab ldx #$1110
jsl $E10000
MEND
MACRO
&lab _GetControlDItem
&lab ldx #$1E15
jsl $E10000
MEND
MACRO
&lab _SetPenSize
&lab ldx #$2C04
jsl $E10000
MEND
MACRO
&lab _PaintOval
&lab ldx #$5904
jsl $E10000
MEND
MACRO
&lab _Int2Dec
&lab ldx #$260B
jsl $E10000
MEND
MACRO
&lab _UDivide
&lab ldx #$0B0B
jsl $E10000
MEND
MACRO
&lab _NewModelessDialog
&lab ldx #$0B15
jsl $E10000
MEND
MACRO
&lab _DialogSelect
&lab ldx #$1115
jsl $E10000
MEND
MACRO
&lab _GetNewDItem
&lab ldx #$3315
jsl $E10000
MEND
MACRO
&lab _StopAlert
&lab ldx #$1815
jsl $E10000
MEND
MACRO
&lab _PaintArc
&lab ldx #$6304
jsl $E10000
MEND
MACRO
&lab _FrameArc
&lab ldx #$6204
jsl $E10000
MEND
MACRO
&lab _LongMul
&lab ldx #$0C0B
jsl $E10000
MEND
MACRO
&lab _LongDivide
&lab ldx #$0D0B
jsl $E10000
MEND
MACRO
&lab _Long2Dec
&lab ldx #$270B
jsl $E10000
MEND
MACRO
&lab _Dec2Long
&lab ldx #$290B
jsl $E10000
MEND
MACRO
&lab _GetIText
&lab ldx #$1F15
jsl $E10000
MEND
MACRO
&lab _SetIText
&lab ldx #$2015
jsl $E10000
MEND
MACRO
&lab _SetDItemValue
&lab ldx #$2F15
jsl $E10000
MEND
MACRO
&lab _PostEvent
&lab ldx #$1406
jsl $E10000
MEND
MACRO
&lab _GetPenSize
&lab ldx #$2D04
jsl $E10000
MEND
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab _CloseDialog
&lab ldx #$0C15
jsl $E10000
MEND
MACRO
&lab _ModalDialog
&lab ldx #$0F15
jsl $E10000
MEND
MACRO
&lab _GetNewModalDialog
&lab ldx #$3215
jsl $E10000
MEND
MACRO
&lab _SetPort
&lab ldx #$1B04
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
MACRO
&lab _GetPort
&lab ldx #$1C04
jsl $E10000
MEND
MACRO
&lab _SetDItemValue
&lab ldx #$2F15
jsl $E10000
MEND
MACRO
&lab _FORMAT ¶ms
&lab jsl $E100A8
dc i2"$24"
dc i4"¶ms"
MEND
MACRO
&lab _NoteAlert
&lab ldx #$1915
jsl $E10000
MEND
MACRO
&lab _GetIText
&lab ldx #$1F15
jsl $E10000
MEND
MACRO
&lab _VOLUME ¶ms
&lab jsl $E100A8
dc i2"8"
dc i4"¶ms"
MEND
MACRO
&lab _DrawDialog
&lab ldx #$1615
jsl $E10000
MEND
MACRO
&lab _StopAlert
&lab ldx #$1815
jsl $E10000
MEND
MACRO
&lab _MoveTo
&lab ldx #$3A04
jsl $E10000
MEND
MACRO
&lab _EraseRect
&lab ldx #$5504
jsl $E10000
MEND
MACRO
&lab _DrawString
&lab ldx #$A504
jsl $E10000
MEND
MACRO
&lab _InitCursor
&lab ldx #$CA04
jsl $E10000
MEND
MACRO
&lab _WaitCursor
&lab ldx #$0A12
jsl $E10000
MEND
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab _SetPort
&lab ldx #$1B04
jsl $E10000
MEND
MACRO
&lab _GetPort
&lab ldx #$1C04
jsl $E10000
MEND
MACRO
&lab _SetPenMode
&lab ldx #$2E04
jsl $E10000
MEND
MACRO
&lab _GetPenMode
&lab ldx #$2F04
jsl $E10000
MEND
MACRO
&lab _SetSolidPenPat
&lab ldx #$3704
jsl $E10000
MEND
MACRO
&lab _SetRect
&lab ldx #$4A04
jsl $E10000
MEND
MACRO
&lab _PtInRect
&lab ldx #$4F04
jsl $E10000
MEND
MACRO
&lab _FrameRect
&lab ldx #$5304
jsl $E10000
MEND
MACRO
&lab _InvertRect
&lab ldx #$5604
jsl $E10000
MEND
MACRO
&lab _PPToPort
&lab ldx #$D604
jsl $E10000
MEND
MACRO
&lab _HiliteControl
&lab ldx #$1110
jsl $E10000
MEND
MACRO
&lab _CloseDialog
&lab ldx #$0C15
jsl $E10000
MEND
MACRO
&lab _GetControlDItem
&lab ldx #$1E15
jsl $E10000
MEND
MACRO
&lab _GetMouse
&lab ldx #$0C06
jsl $E10000
MEND
MACRO
&lab _NewHandle
&lab ldx #$0902
jsl $E10000
MEND
MACRO
&lab _DisposeHandle
&lab ldx #$1002
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
MACRO
&lab _SetClip
&lab ldx #$2404
jsl $E10000
MEND
MACRO
&lab _GetClip
&lab ldx #$2504
jsl $E10000
MEND
MACRO
&lab _ClipRect
&lab ldx #$2604
jsl $E10000
MEND
MACRO
&lab _SetPenPat
&lab ldx #$3004
jsl $E10000
MEND
MACRO
&lab _MoveTo
&lab ldx #$3A04
jsl $E10000
MEND
MACRO
&lab _LineTo
&lab ldx #$3C04
jsl $E10000
MEND
MACRO
&lab _Line
&lab ldx #$3D04
jsl $E10000
MEND
MACRO
&lab _OffsetRect
&lab ldx #$4B04
jsl $E10000
MEND
MACRO
&lab _EmptyRect
&lab ldx #$5204
jsl $E10000
MEND
MACRO
&lab _PaintRect
&lab ldx #$5404
jsl $E10000
MEND
MACRO
&lab _FillRect
&lab ldx #$5704
jsl $E10000
MEND
MACRO
&lab _FrameOval
&lab ldx #$5804
jsl $E10000
MEND
MACRO
&lab _PaintOval
&lab ldx #$5904
jsl $E10000
MEND
MACRO
&lab _FrameRRect
&lab ldx #$5D04
jsl $E10000
MEND
MACRO
&lab _PaintRRect
&lab ldx #$5E04
jsl $E10000
MEND
MACRO
&lab _NewRgn
&lab ldx #$6704
jsl $E10000
MEND
MACRO
&lab _DisposeRgn
&lab ldx #$6804
jsl $E10000
MEND
MACRO
&lab _HideCursor
&lab ldx #$9004
jsl $E10000
MEND
MACRO
&lab _ShowCursor
&lab ldx #$9104
jsl $E10000
MEND
MACRO
&lab _SetTextMode
&lab ldx #$9C04
jsl $E10000
MEND
MACRO
&lab _GetTextMode
&lab ldx #$9D04
jsl $E10000
MEND
MACRO
&lab _SetForeColor
&lab ldx #$A004
jsl $E10000
MEND
MACRO
&lab _DrawChar
&lab ldx #$A404
jsl $E10000
MEND
MACRO
&lab _DrawString
&lab ldx #$A504
jsl $E10000
MEND
MACRO
&lab _NewModelessDialog
&lab ldx #$0B15
jsl $E10000
MEND
MACRO
&lab _DialogSelect
&lab ldx #$1115
jsl $E10000
MEND
MACRO
&lab _CautionAlert
&lab ldx #$1A15
jsl $E10000
MEND
MACRO
&lab _GetNewDItem
&lab ldx #$3315
jsl $E10000
MEND
MACRO
&lab _GetNextEvent
&lab ldx #$0A06
jsl $E10000
MEND
MACRO
&lab _StillDown
&lab ldx #$0E06
jsl $E10000
MEND
MACRO
&lab _InstallFont
&lab ldx #$0E1B
jsl $E10000
MEND
|
||||
File diff suppressed because one or more lines are too long
@ -1 +0,0 @@
|
||||
MACRO
&lab _GetNextEvent
&lab ldx #$0A06
jsl $E10000
MEND
MACRO
&lab _MoveTo
&lab ldx #$3A04
jsl $E10000
MEND
MACRO
&lab _SetForeColor
&lab ldx #$A004
jsl $E10000
MEND
MACRO
&lab _DrawString
&lab ldx #$A504
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
MACRO
&lab _SetPort
&lab ldx #$1B04
jsl $E10000
MEND
MACRO
&lab _GetPort
&lab ldx #$1C04
jsl $E10000
MEND
MACRO
&lab _SetSolidPenPat
&lab ldx #$3704
jsl $E10000
MEND
MACRO
&lab _FrameRect
&lab ldx #$5304
jsl $E10000
MEND
MACRO
&lab _PaintRect
&lab ldx #$5404
jsl $E10000
MEND
MACRO
&lab _SetTextMode
&lab ldx #$9C04
jsl $E10000
MEND
MACRO
&lab _HiliteControl
&lab ldx #$1110
jsl $E10000
MEND
MACRO
&lab _GetControlDItem
&lab ldx #$1E15
jsl $E10000
MEND
MACRO
&lab _Int2Dec
&lab ldx #$260B
jsl $E10000
MEND
MACRO
&lab _SetDItemValue
&lab ldx #$2F15
jsl $E10000
MEND
MACRO
&lab _GetTextMode
&lab ldx #$9D04
jsl $E10000
MEND
MACRO
&lab _GetForeColor
&lab ldx #$A104
jsl $E10000
MEND
MACRO
&lab _GetIText
&lab ldx #$1F15
jsl $E10000
MEND
MACRO
&lab _Dec2Int
&lab ldx #$280B
jsl $E10000
MEND
MACRO
&lab _NewModelessDialog
&lab ldx #$0B15
jsl $E10000
MEND
MACRO
&lab _CloseDialog
&lab ldx #$0C15
jsl $E10000
MEND
MACRO
&lab _DialogSelect
&lab ldx #$1115
jsl $E10000
MEND
MACRO
&lab _GetNewDItem
&lab ldx #$3315
jsl $E10000
MEND
MACRO
&lab _SetIText
&lab ldx #$2015
jsl $E10000
MEND
MACRO
&lab _GetDItemValue
&lab ldx #$2E15
jsl $E10000
MEND
MACRO
&lab _SetCtlParams
&lab ldx #$1B10
jsl $E10000
MEND
MACRO
&lab _InvertRect
&lab ldx #$5604
jsl $E10000
MEND
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab _NewModalDialog
&lab ldx #$0A15
jsl $E10000
MEND
MACRO
&lab _CloseDialog
&lab ldx #$0C15
jsl $E10000
MEND
MACRO
&lab _NewDItem
&lab ldx #$0D15
jsl $E10000
MEND
MACRO
&lab _ModalDialog
&lab ldx #$0F15
jsl $E10000
MEND
MACRO
&lab _GetDItemValue
&lab ldx #$2E15
jsl $E10000
MEND
MACRO
&lab _SetDItemValue
&lab ldx #$2F15
jsl $E10000
MEND
MACRO
&lab _SetPort
&lab ldx #$1B04
jsl $E10000
MEND
MACRO
&lab _GetPort
&lab ldx #$1C04
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab _NewHandle
&lab ldx #$0902
jsl $E10000
MEND
MACRO
&lab pushlong &addr,&offset
&lab ANOP
LCLC &C
LCLC &REST
&C AMID &addr,1,1
AIF "&C"="#",.immediate
AIF "&C"="[",.zeropage
AIF C:&offset=0,.nooffset
AIF "&offset"="s",.stack
pushword &addr+2,&offset
pushword &addr,&offset
MEXIT
.nooffset
pushword &addr+2
pushword &addr
MEXIT
.immediate
&REST AMID &addr,2,L:&addr-1
dc I1'$F4',I2'(&REST)|-16'
dc I1'$F4',I2'&REST'
MEXIT
.stack
pushword &addr+2,s
pushword &addr+2,s
MEXIT
.zeropage
ldy #&offset+2
pushword &addr,y
ldy #&offset
pushword &addr,y
MEND
MACRO
&lab pushword &sysopr
&lab ANOP
AIF c:&sysopr=0,.b
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
pha
MEXIT
.b
pha
MEXIT
.immediate
dc I1'$F4',I2'&REST'
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
MACRO
&lab _PMShutDown
&lab ldx #$0313
jsl $E10000
MEND
MACRO
&lab _CloseDialog
&lab ldx #$0C15
jsl $E10000
MEND
MACRO
&lab _ModalDialog
&lab ldx #$0F15
jsl $E10000
MEND
MACRO
&lab _SetPort
&lab ldx #$1B04
jsl $E10000
MEND
MACRO
&lab _GetPort
&lab ldx #$1C04
jsl $E10000
MEND
MACRO
&lab _WaitCursor
&lab ldx #$0A12
jsl $E10000
MEND
MACRO
&lab _SetSolidPenPat
&lab ldx #$3704
jsl $E10000
MEND
MACRO
&lab _FrameRect
&lab ldx #$5304
jsl $E10000
MEND
MACRO
&lab _PaintRect
&lab ldx #$5404
jsl $E10000
MEND
MACRO
&lab _GetNewDItem
&lab ldx #$3315
jsl $E10000
MEND
MACRO
&lab _StopAlert
&lab ldx #$1815
jsl $E10000
MEND
MACRO
&lab _NewModalDialog
&lab ldx #$0A15
jsl $E10000
MEND
MACRO
&lab _PMStartUp
&lab ldx #$0213
jsl $E10000
MEND
MACRO
&lab _PrDefault
&lab ldx #$0913
jsl $E10000
MEND
MACRO
&lab _PrStlDialog
&lab ldx #$0B13
jsl $E10000
MEND
MACRO
&lab _PrJobDialog
&lab ldx #$0C13
jsl $E10000
MEND
MACRO
&lab _PrChooser
&lab ldx #$1613
jsl $E10000
MEND
MACRO
&lab _LoadOneTool
&lab ldx #$0F01
jsl $E10000
MEND
MACRO
&lab _UnloadOneTool
&lab ldx #$1001
jsl $E10000
MEND
MACRO
&lab _InvalRect
&lab ldx #$3A0E
jsl $E10000
MEND
MACRO
&lab _SetDItemValue
&lab ldx #$2F15
jsl $E10000
MEND
MACRO
&lab _InitCursor
&lab ldx #$CA04
jsl $E10000
MEND
MACRO
&lab _CopyPixels
&lab ldx #$0912
jsl $E10000
MEND
MACRO
&lab _PrOpenDoc
&lab ldx #$0E13
jsl $E10000
MEND
MACRO
&lab _PrOpenPage
&lab ldx #$1013
jsl $E10000
MEND
MACRO
&lab _PrClosePage
&lab ldx #$1113
jsl $E10000
MEND
MACRO
&lab _PrError
&lab ldx #$1413
jsl $E10000
MEND
MACRO
&lab _PrValidate
&lab ldx #$0A13
jsl $E10000
MEND
MACRO
&lab _PrCloseDoc
&lab ldx #$0F13
jsl $E10000
MEND
MACRO
&lab _GetPortLoc
&lab ldx #$1E04
jsl $E10000
MEND
MACRO
&lab _PrPicfile
&lab ldx #$1213
jsl $E10000
MEND
MACRO
&lab _MoveTo
&lab ldx #$3A04
jsl $E10000
MEND
MACRO
&lab _DrawString
&lab ldx #$A504
jsl $E10000
MEND
MACRO
&lab _Int2Dec
&lab ldx #$260B
jsl $E10000
MEND
MACRO
&lab _GETFILEINFO ¶ms
&lab jsl $E100A8
dc i2"6"
dc i4"¶ms"
MEND
MACRO
&lab _MaxBlock
&lab ldx #$1C02
jsl $E10000
MEND
MACRO
&lab _CompactMem
&lab ldx #$1F02
jsl $E10000
MEND
MACRO
&lab _TotalMem
&lab ldx #$1D02
jsl $E10000
MEND
MACRO
&lab _PPToPort
&lab ldx #$D604
jsl $E10000
MEND
MACRO
&lab _DisposeHandle
&lab ldx #$1002
jsl $E10000
MEND
MACRO
&lab _OpenPort
&lab ldx #$1804
jsl $E10000
MEND
MACRO
&lab _ClosePort
&lab ldx #$1A04
jsl $E10000
MEND
MACRO
&lab _SetPortLoc
&lab ldx #$1D04
jsl $E10000
MEND
MACRO
&lab _ClipRect
&lab ldx #$2604
jsl $E10000
MEND
MACRO
&lab _SetPortRect
&lab ldx #$1F04
jsl $E10000
MEND
MACRO
&lab _NewRgn
&lab ldx #$6704
jsl $E10000
MEND
MACRO
&lab _DisposeRgn
&lab ldx #$6804
jsl $E10000
MEND
MACRO
&lab _OpenRgn
&lab ldx #$6D04
jsl $E10000
MEND
MACRO
&lab _CloseRgn
&lab ldx #$6E04
jsl $E10000
MEND
MACRO
&lab _SetVisRgn
&lab ldx #$B404
jsl $E10000
MEND
MACRO
&lab _SysBeep
&lab ldx #$2C03
jsl $E10000
MEND
MACRO
&lab _PrSetError
&lab ldx #$1513
jsl $E10000
MEND
|
||||
@ -1 +0,0 @@
|
||||
MACRO
&lab pushword &sysopr,®
&lab ANOP
AIF C:&sysopr,.ok
phd
MEXIT
.ok
AIF C:®,.indexed
LCLC &C
LCLC &REST
LCLA &BL
&C AMID "&sysopr",1,1
&BL ASEARCH "&sysopr"," ",1
AIF &BL>0,.a
&BL SETA L:&sysopr+1
.a
&REST AMID "&sysopr",2,&BL-2
AIF ("&C"="<").AND.(S:LONGA),.zeropage
AIF ("&C"="#").AND.(S:LONGA),.immediate
lda &sysopr
.b
pha
MEXIT
.zeropage
pei &REST
MEXIT
.immediate
pea &REST
MEXIT
.indexed
lda &sysopr,®
pha
MEND
MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
MEND
MACRO
&lab _EMShutDown
&lab ldx #$0306
jsl $E10000
MEND
MACRO
&lab _IMStartUp
&lab ldx #$020B
jsl $E10000
MEND
MACRO
&lab _IMShutDown
&lab ldx #$030B
jsl $E10000
MEND
MACRO
&lab _TLStartUp
&lab ldx #$0201
jsl $E10000
MEND
MACRO
&lab _TLShutDown
&lab ldx #$0301
jsl $E10000
MEND
MACRO
&lab _MMStartUp
&lab ldx #$0202
jsl $E10000
MEND
MACRO
&lab _MMShutDown
&lab ldx #$0302
jsl $E10000
MEND
MACRO
&lab _MTStartUp
&lab ldx #$0203
jsl $E10000
MEND
MACRO
&lab _MTShutDown
&lab ldx #$0303
jsl $E10000
MEND
MACRO
&lab _SysBeep
&lab ldx #$2C03
jsl $E10000
MEND
MACRO
&lab _GETDEVNUM ¶ms
&lab jsl $E100A8
dc i2"$20"
dc i4"¶ms"
MEND
MACRO
&lab _GETDIB ¶ms
&lab jsl $E100A8
dc i2"$21"
dc i4"¶ms"
MEND
MACRO
&lab _FORMAT ¶ms
&lab jsl $E100A8
dc i2"$24"
dc i4"¶ms"
MEND
MACRO
&lab _QUIT ¶ms
&lab jsl $E100A8
dc i2"$29"
dc i4"¶ms"
MEND
MACRO
&lab _InitCursor
&lab ldx #$CA04
jsl $E10000
MEND
MACRO
&lab _TextStartUp
&lab ldx #$020C
jsl $E10000
MEND
MACRO
&lab _TextShutDown
&lab ldx #$030C
jsl $E10000
MEND
MACRO
&lab _ReadChar
&lab ldx #$220C
jsl $E10000
MEND
|
||||
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1 +0,0 @@
|
||||
;...............................................................
;
; FILE : CONFIGDISK.S - routines bank 00 -
; ------------
;...............................................................
;...............................................................
;
; Config_Disk - routines SmartPort -
;
;...............................................................
Config_Disk START
Using FormatData
;--------------------------------------
; Search_DeviceName
;--------------------------------------
Search_deviceName ENTRY
jsr RamYesOrNot
lda >$00BF31 |number of device -1
and #$00FF
sta DevCnt
lda DevCnt |Device List
tax
asl a
tay
LoopDevLst lda >$00BF32,x
and #$00FF
sta DevLst,y
dey
dey
dex
bpl LoopDevLst
ldx #$1E |Device Adresse
LoopDevAdr lda >$00BF10,x
sta DevAdr,x
dex
dex
bpl LoopDevAdr
;--
lda #1 |init a 1
sta DeviceNumber
lda DevCnt |DevCnt
sta zDevCnt
lda #0
sta NbDrive35
sta NbDrive54
;--
LoopSearch lda zDevCnt |Search Device Name
asl a
tax
lda DevLst,x
bit #$0080
bmi drive2
drive1 and #$0070
asl a
tay
lda DevAdr,y
cmp >$00BF10 |no device
beq NoDevice
bra YesDevice
drive2 and #$0070
asl a
tay
lda DevAdr+16,y
cmp >$00BF10 |no device
beq NoDevice
bra YesDevice
;--
YesDevice lda zDevCnt
asl a
tax
lda DevLst,x
and #$000F
cmp #$000B
beq Drive35
cmp #0
bne NoDevice
;--
Drive54 ANOP
lda NbDrive54
cmp #2
bcs fDrive54
asl a
tax
lda DeviceNumber
sta Tab_Slot_Drive+4,x
inc NbDrive54
fDrive54 bra NoDevice
;--
Drive35 ANOP
lda NbDrive35
cmp #2
bcs fDrive35
asl a
tax
lda DeviceNumber
sta Tab_Slot_Drive,x
inc NbDrive35
lda DeviceNumber
clc
adc RamOrNot
sta DeviceNumber
fDrive35 bra NoDevice
;--
NoDevice ANOP
inc DeviceNumber
dec zDevCnt
bmi fSearch
brl LoopSearch
;--
fSearch rts
;--------------------------------------
; RamYesOrNot
;--------------------------------------
RamYesOrNot ANOP
lda #0
sta RamOrNot
lda >$00BF31
and #$00FF
tax
rRYON lda >$00BF32,x
and #$00FF
cmp #$2B
beq sRYON_P
cmp #$AB
beq sRYON_P
sRYON dex
bpl rRYON
rts
sRYON_P inc RamOrNot
bra sRYON
;--------------------------------------
; Data
;--------------------------------------
RamOrNot ds 2
;--
NbDrive35 ds 2
NbDrive54 ds 2
;-
DeviceNumber ds 2
DevLst ds 32
DevCnt ds 2
DevAdr ds 32
zDevCnt ds 2
;-
END
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1 +0,0 @@
|
||||
;------------------------------------------------------------------
;
; 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
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Loading…
x
Reference in New Issue
Block a user