Adding Pick'n'Pile

IIe (complete) & IIgs (corrupted) soruce code

picknpile/SOURCES.IIE/EX.SRC

@@ -0,0 +1 @@
+asml MainIIe.src
MakeBin PnP.SYS -o Pick.SYS -t $ff -at $2000

picknpile/SOURCES.IIE/MC.SRC

@@ -0,0 +1 @@
+macgen mainIIe.src PNP.Macros PNP.Macros

picknpile/SOURCES.IIE/PNP.MACROS

@@ -0,0 +1 @@
+ MACRO
&lab str &string
&lab dc i1'L:&string',C'&string'
 MEND

picknpile/SOURCES.IIE/VBEST.SRC

@@ -0,0 +1 @@
+         list off
         gen off
         msb off
         symbol off
         65816 off
         65c02 off
         keep HiScores

               mcopy PnP.Macros



HiScore        START

               dc h'10'
               str 'NICOLAS   '
               dc h'00000100'
               dc h'08'
               str 'MICHEL    '
               dc h'00700000'
               dc h'06'
               str 'VERONIQUE '
               dc h'00500000'
               dc h'04'
               str 'SYLVIE    '
               dc h'00200000'
               dc h'02'
               str 'SERGE     '
               dc h'00100000'
               ds 16


          MSB OFF

          dc c'WU0HI78VEAO4HKE53LVI6RY73C5UMU5862K2958TXOTU10T6ME'
          dc c'DYQODPYCRL4A9OEB4L43MUW0L4CQC1NV74XRKEB1T9W38U9I4V'
          dc c'IR1RC0IMJ536GJDNXFWEESIT3IUV8193EQK1YFYHXERPIGC0GV'
          dc c'TPO0GRNY9CD8LBX75YQSWYY4GQ8JVFDHPGUWJQCGDW0GS02KP2'
          dc c'TLAV2RJL7NP8JVEM121YP30J5SJT89BNY1ALPKY2VDSNOATLAU'
          dc c'1U45AX5AT01CLKO72HF4I9IW46KL4DJPHGWT16W903D40BWRXJ'
          dc c'TX893N9POMSAMNP7CDPXNFM6T6DIJ1D5XAEVJA2X5SXL7G0NBE'
          dc c'RJVOJCCXJNDLVXF60MVX2L3FC2MSYW76CEV159F7HNP3TD2NE9'
          dc c'YDQ779V9XHTJ6OYCE8C6NO12RJK8P1NPNMHXS2UKEC1E6UWLF7'
          dc c'6TDN5X8HE2Q5DQ57KCDH9LBJYX5LT233814169N0KHB1S1Q5FI'
          dc c'YUY66NARJRRD1PFU3J3TRM1NDNHIFK82W82882Y6BBJ4TIA4Y8'
          dc c'KUT4USI751XT2DLSUFK2SAUNDICCG98YT2RVKCJKCVRO5NW3XF'
          dc c'46DQVD5S7DCYHQRXT0HC59WBPH8U4NMPKCU77ARN62CT4PS304'
          dc c'8EB0O73PQU8YC3JILHF05EELPTTIKL9IRLAOAHJ30CNAC3RGH3'
          dc c'XVDYPFRQ124PFVQM0PVLESMC4XKXJFV5B92JTO3VNES29721O2'
          dc c'SD6RSQY0352UE8TY13UBOA9Y4QPSR2KMNTXAC9H5L33YD8TDSP'
          dc c'XOS1BB7XM0953XKTBIHCEFY3PFX3TYDFTRD35XLXG3FIIWTTGN'
          dc c'L6H3NFLMXTVQFCD8T66RWY7RL6QQBD9F294PV2NF80NG2HHV4F'
          dc c'B0GTAQYQGH91F6D1CR99R65WHKSCGH3HV37L4PHUDXFG3TNT4L'
          dc c'Y2PO9DACDXDRA8FUR7LQ5J4OAAC0JAFF1LSW7VGOPDA00GORRB'
          dc c'NXXLE7UMLN3D0OVOXWN4QKEGXO52RK67FI6OX4DYV2T5XG3VI8'
          dc c'Y3SU37SFUA9ESND5YCJLRN945C0S065D0W41LHULN7DQNG0RB5'
          dc c'84BDRQIJ7DR5SKPW8X8VTDQNC276DPM4UNBLDIHS07MSDN836P'
          dc c'0XB3H8ASWUIRKPJOW5AUKFRXTXM5FNH71XIUMY6I49UCSX9XM0'
          dc c'W62A5BS2HS8TXE8B8K71U6LB12O3O1GIPSS1SIF3ASR38845VT'
          dc c'LWUK8HHGFDS6AHWJTTRK029QKPP4ANVDA8OSBWHWIYCHXP1BBE'
          dc c'ARSXBAVYWC6R64A0HDD7Y14QRKJLDT13WGFIE4CI4FAMDP0WLV'
          dc c'TUIQHNTP5KD82FFM02L8UHKMPWOTCE5IIV0RLIHXROC293ANJL'
          dc c'M1M4S5QSOTPQ5FN9D97HEJ4IT8Y3P7V755DMIHN7T3JQP36CS5'
          dc c'360YDNDTC8496C17P16KKC4PPPFI0592U1QJ9FVCNQR2F3BN2A'
          dc c'NY1SMUJSWYYW9WIIS6N2P7QNYJES3D10VLORSWP2SBE0UYQP08'
          dc c'OUN0WEURBEHI2ECO11VPWKP6YV9PNIOHIFJL2VHC9RHU0A38NU'
          dc c'R887PGOFMU4A18YXVJWAN7H4KOULIBPM92L37QALS8OI6V8SX2'
          dc c'5AWGWFIFEKQG6T8AHBQWFDHNVK4V9AVC5Q0YE6FDUWGHLIJ6ON'
          dc c'K82B6QDQHHTGXP58HPUDRWWHPM88J9CHFO8L7HI48WVXPEQLT6'
          dc c'EWSQHOT3UERBC6JBVNS7D5E1GCM39QP46AK4NLWC4OAM74DNBE'
          dc c'I5U207SVSDVO2IQO1U1Q3QPNTN0IAFC1UUILQ10F6XHCUU3RXF'
          dc c'C0K47YI72F3WFQVKKWD1UQNA0LSW00UBAWE9XTXVAP7HRVGSFL'
          dc c'D4IXI4HI7SJJM7LCQ4QTXVCKPCPJGDSXWDG00EXJ0WG9MY4MCL'
          dc c'RJKTOUG3JVBPW3GB9W9OT28WUIHP2KUQPRI7AGTBI18R1EY00N'
          dc c'T6WPPHYT8RPJJO01XE67VX6QHNQB1BUWA98YA31QNHRFJA8FAD'
          dc c'WSIIUOU6RT9QSJN6GFO5OLEX44I28V9RMPE5LIJEB438VRG9K4'
          dc c'DG90BPGUT0UY9CLUH8FGB610GFQTYS38204RFLBYYV4B86OQ3C'
          dc c'19HUVVRY24B6XG5059453TOX694JRQB7J86SW7FVTTUMJ08QCN'
          dc c'MF439D3ASJT81WHOSOVM7VK9486X29K8RLAH1Q5S67BJ4UKEOC'
          dc c'VOWSE036M36IT8PV7SUQI7CUJT62UO4OC8H3S266YCM8Q75BEO'
          dc c'2XV5F8AR1SIOI5W4NHSVE2W3R35I2RQ2CRIUF97T55YXEK39GD'
          dc c'OMSBHWBHBSOVSESVISGRNEMGPAGETLBGQ9MPRXXKROTYVR573N'
          dc c'9BJBHGC306JTA9WIAV1MJF4SF5DYNQUORQAIPB0V4OSHLOPDKS'
          dc c'R1WIDBXQLIRCJ6AVP852MT8OV380TNLKCQBC8PCJFDM6QBTGTO'
          dc c'M1EN9FE5H1WE56V4K3KUR4338432M8XJYD79L5AW92948G4CC6'
          dc c'DIXLN00CH3FW61O0G1K3DY20D13HT3V8NK8G6E2FXK576WGNBD'
          dc c'JVKOLBHBEXQK014LD7TY2JQUYWDGLF44SV9WSLQWLWR8V2M4RO'
          dc c'4FLS86MFNA50QS2WPUXW125RB0CWQE4EJIY2L77CFC88G5IWT8'
          dc c'WQQR1Q6TP376WXQP52UDMG7AV82DNTAUQSO2KX2HRJ8SRCGWUW'
          dc c'WOOQ7LT085XSVUWIB1C4WOCKCPD537MOPIRX9OR55HU0SKJE3V'
          dc c'B7WIBXDW5OSD6Y1R2VF79HP4HRHE9QFX2FN1HYEPUTGK89GB5X'
          dc c'K2GRCJFU6G6HJ385GGKTM8W28467OT2E3YQLX5IJ54YOIBE4TY'
          dc c'IIPVIYKAEI3I6LQE6ELX073IVERQJUNFYY7UBY99AR17AEQ4AG'
          dc c'AY4QOIDL6B2L1D7FHM5EK9P6DSN288JKNY2JPAI1JS1AWOIBJM'

               END

picknpile/SOURCES.IIGS/EX.SRC

@@ -0,0 +1 @@
+asml Main.src
filetype Shell S16

picknpile/SOURCES.IIGS/HISCORES2

@@ -0,0 +1 @@
+UQWY8u8鯙T]_U[]8u8uhDUU]WQM8踀Q_KTQ8u8u8UU]_8u8uE?UUUUUUUUUUU<>

picknpile/SOURCES.IIGS/MC.SRC

@@ -0,0 +1 @@
+macgen main.src sh.macros sh.macros

picknpile/SOURCES.IIGS/SH.MACROS

@@ -0,0 +1 @@
+ MACRO
&lab _CompactMem
&lab ldx #$1F02
 jsl $E10000
 MEND
 MACRO
&lab _DisposeHandle
&lab ldx #$1002
 jsl $E10000
 MEND
 MACRO
&lab _MMShutDown
&lab ldx #$0302
 jsl $E10000
 MEND
 MACRO
&lab _MMStartUp
&lab ldx #$0202
 jsl $E10000
 MEND
 MACRO
&lab _NewHandle
&lab ldx #$0902
 jsl $E10000
 MEND
 MACRO
&lab pulllong &addr1,&addr2
&lab ANOP
 AIF C:&addr1=0,.a
 AIF C:&addr2=0,.b
 LCLC &C
&C AMID &addr1,1,1
 AIF "&C"="[",.zeropage
 pullword &addr1
 sta &addr2
 pullword &addr1+2
 sta &addr2+2
 MEXIT
.a
 pullword
 pullword
 MEXIT
.b
 pullword &addr1
 pullword &addr1+2
 MEXIT
.zeropage
 ldy #&addr2
 pullword &addr1,y
 ldy #&addr2+2
 pullword &addr1,y
 MEND
 MACRO
&lab pullword &SYSOPR
&lab ANOP
 pla
 AIF C:&SYSOPR=0,.end
 sta &SYSOPR
.end
 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
&C AMID "&SYSOPR",1,1
 AIF ("&C"="#").AND.(S:LONGA),.immediate
 lda &SYSOPR
 pha
 MEXIT
.b
 pha
 MEXIT
.immediate
 LCLC &REST
 LCLA &BL
&BL ASEARCH "&SYSOPR"," ",1
 AIF &BL>0,.a
&BL SETA L:&SYSOPR+1
.a
&REST AMID "&SYSOPR",2,&BL-2
 dc I1'$F4',I2'&REST'
 MEND
 MACRO
&lab _TLShutDown
&lab ldx #$0301
 jsl $E10000
 MEND
 MACRO
&lab _TLStartUp
&lab ldx #$0201
 jsl $E10000
 MEND
 MACRO
&lab _UnPackBytes
&lab ldx #$2703
 jsl $E10000
 MEND
 MACRO
&lab str &string
&lab dc i1'L:&string',C'&string'
 MEND
 MACRO
&lab _GetHandleSize
&lab ldx #$1802
 jsl $E10000
 MEND
 MACRO
&lab _MTStartUp
&lab ldx #$0203
 jsl $E10000
 MEND
 MACRO
&lab _IntSource
&lab ldx #$2303
 jsl $E10000
 MEND
 MACRO
&lab _IMShutDown
&lab ldx #$030B
 jsl $E10000
 MEND
 MACRO
&lab _IMStartUp
&lab ldx #$020B
 jsl $E10000
 MEND
 MACRO
&lab _Long2Dec
&lab ldx #$270B
 jsl $E10000
 MEND
 MACRO
&lab _MTShutDown
&lab ldx #$0303
 jsl $E10000
 MEND
 MACRO
&lab _SetSoundMIRQV
&lab ldx #$1208
 jsl $E10000
 MEND
 MACRO
&lab _WriteRamBlock
&lab ldx #$0908
 jsl $E10000
 MEND
 MACRO
&lab _SoundShutDown
&lab ldx #$0308
 jsl $E10000
 MEND
 MACRO
&lab _SoundStartUp
&lab ldx #$0208
 jsl $E10000
 MEND
 MACRO
&lab _DelHeartBeat
&lab ldx #$1303
 jsl $E10000
 MEND
 MACRO
&lab _SetHeartBeat
&lab ldx #$1203
 jsl $E10000
 MEND

swordofsodan/S1/CODE.S

@@ -14052,7 +14052,7 @@ L7DF9    INY
          LDA   ($16),Y
          INY
          INY
-         JSR   LEFAC
+         JSR   LEFAC	; make mask
          LDA   ($16),Y
          INY
          INY
@@ -14123,7 +14123,7 @@ L7E80    STZ   LEFD3
 L7E83    LDA   #$FFFF
          INY
          INY
-L7E88    JSR   LEFAC
+L7E88    JSR   LEFAC	; make mask
          LDA   ($16),Y
          INY
          INY
@@ -23849,12 +23849,12 @@ LEDEF    DB    $00
 LEDF1    STA   $00
          STX   $02
          STY   $26
-         LDA   #$0082
+         LDA   #$0082	; BRL
          BRA   LEE05
 LEDFC    STA   $00
          STX   $02
          STY   $26
-         LDA   #$002C
+         LDA   #$002C	; BIT
 LEE05    SEP   #$20
          STA   LEE6C
          REP   #$20
@@ -23900,7 +23900,7 @@ LEE2D    LDY   LEEDA
          INY
          INY
          STY   $26
-         LDY   #$0003
+         LDY   #$0003	; PHD TXA TCD CLC
          LDX   #LEFA6
          JSR   LEF9A
          LDX   #$FFFF
@@ -23912,34 +23912,36 @@ LEE6C    BRL   LEEDC
          LDX   #$0000
 LEE76    LDA   [$00],Y
          BEQ   LEE8A
-         JSR   LEFD5
+         JSR   LEFD5	; calc value & mask
          STA   $10
          BIT   LEDEF
          BMI   LEE87
-         JSR   LEF75
-LEE87    JSR   LEEFF
-LEE8A    INX
+         JSR   LEF75	; new line
+LEE87    JSR   LEEFF	; output code
+LEE8A    INX	; next word
          INX
          DEY
          DEY
          BPL   LEE76
-LEE90    LDA   $20
+
+LEE90    LDA   $20	; move source pointer
          CLC
          ADC   $00
          STA   $00
          LDA   #$0000
          ADC   $02
          STA   $02
-         DEC   $14
-         BEQ   LEEB5
+         DEC   $14	; line--
+         BEQ   LEEB5	; exit
          LDA   LEDEF
          BPL   LEEAA
          LDA   #$0000
 LEEAA    ADC   #$00A0
          STA   LEDEF
          STA   LEDE9
-         BRA   LEE6C
-LEEB5    LDY   #$0001
+         BRA   LEE6C	; loop
+         
+LEEB5    LDY   #$0001	; PLD RTL
          LDX   #LEFAA
          JSR   LEF9A
          DEC   $6E
@@ -23976,22 +23978,23 @@ LEEF4    INX
          CPY   $20
          BCC   LEEE0
          BRL   LEE90
-LEEFF    LDA   $12
+LEEFF    LDA   $12	; compare previous word
          CMP   LEDEB
          BNE   LEF0D
          LDA   $10
          ORA   LEDE9
-         BEQ   LEF46
-LEF0D    LDA   #$00A9
+         BEQ   LEF46	; same means only a STA is required
+
+LEF0D    LDA   #$00A9	; LDA #
          STA   [$08]
          INC   $08
          LDA   $10
          STA   LEDE9
-         BEQ   LEF3B
+         BEQ   LEF3B	; if no transparency, skip AND ORA
          STA   [$08]
          INC   $08
          INC   $08
-         LDA   #$0025
+         LDA   #$0025	; AND $xxxx
          STA   [$08]
          INC   $08
          TXA
@@ -23999,8 +24002,8 @@ LEF0D    LDA   #$00A9
          INC   $08
          LDA   $12
          STA   LEDEB
-         BEQ   LEF46
-         LDA   #$0009
+         BEQ   LEF46	; if transparent, skip ORA
+         LDA   #$0009	; ORA #
          STA   [$08]
          INC   $08
 LEF3B    LDA   $12
@@ -24008,16 +24011,16 @@ LEF3B    LDA   $12
          STA   [$08]
          INC   $08
          INC   $08
-LEF46    LDA   #$0085
+LEF46    LDA   #$0085	; STA $
          STA   [$08]
          INC   $08
          TXA
          STA   [$08]
          INC   $08
          LDA   $08
-         CMP   #$FFF0
+         CMP   #$FFF0	; next bank
          BCC   LEF74
-         LDA   #$005C
+         LDA   #$005C	; JMPL $
          STA   [$08]
          INC   $08
          LDA   #$0000
@@ -24033,7 +24036,7 @@ LEF46    LDA   #$0085
 LEF74    RTS
 
 LEF75    PHA
-         LDA   #$697B
+         LDA   #$697B	; TDC ADC
          STA   [$08]
          INC   $08
          INC   $08
@@ -24041,7 +24044,7 @@ LEF75    PHA
          STA   [$08]
          INC   $08
          INC   $08
-         LDA   #$005B
+         LDA   #$005B	; TCD
          STA   [$08]
          INC   $08
          STA   LEDE9