Home
JAQForum Ver 24.01
Log In or Join  
Active Topics
Local Time 03:27 22 Nov 2024 Privacy Policy
Jump to

Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me.

Forum Index : Windmills : PICOMITE pinlister programm

Author Message
andreas

Senior Member

Joined: 07/12/2020
Location: Germany
Posts: 206
Posted: 08:55am 31 Jul 2022
Copy link to clipboard 
Print this post

Hello everybody,

this morning I wrote a tiny programm to list all the pico GPnn pins together with their physical pin number and status.

I couldn't figure out how to generate to 2nd parameter ("GPnn") of the mm.info$(PINNO GPnn) structure, so i simply repeated the lines and changed the "nn" manually. It's ugly but it works ;)

Here is the listing of pinlister.bas and the output in a picture. I used mm.ver 5.070515 for testing.

I saved this as flash 7 so I can quickly look up the values by a 'flash load 7' & run.

Print "List of pins & status"
Print
Print " GP#"," Pin#","Status"
Print " ========================"
Print 0, MM.Info(PINNO GP00),MM.Info(PIN MM.Info(PINNO GP00))
Print 1, MM.Info(PINNO GP01),MM.Info(PIN MM.Info(PINNO GP01))
Print 2, MM.Info(PINNO GP02),MM.Info(PIN MM.Info(PINNO GP02))
Print 3, MM.Info(PINNO GP03),MM.Info(PIN MM.Info(PINNO GP03))
Print 4, MM.Info(PINNO GP04),MM.Info(PIN MM.Info(PINNO GP04))
Print 5, MM.Info(PINNO GP05),MM.Info(PIN MM.Info(PINNO GP05))
Print 6, MM.Info(PINNO GP06),MM.Info(PIN MM.Info(PINNO GP06))
Print 7, MM.Info(PINNO GP07),MM.Info(PIN MM.Info(PINNO GP07))
Print 8, MM.Info(PINNO GP08),MM.Info(PIN MM.Info(PINNO GP08))
Print 9, MM.Info(PINNO GP09),MM.Info(PIN MM.Info(PINNO GP09))
Print 10, MM.Info(PINNO GP10),MM.Info(PIN MM.Info(PINNO GP10))
Print 11, MM.Info(PINNO GP11),MM.Info(PIN MM.Info(PINNO GP11))
Print 12, MM.Info(PINNO GP12),MM.Info(PIN MM.Info(PINNO GP12))
Print 13, MM.Info(PINNO GP13),MM.Info(PIN MM.Info(PINNO GP13))
Print 14, MM.Info(PINNO GP14),MM.Info(PIN MM.Info(PINNO GP14))
Print 15, MM.Info(PINNO GP15),MM.Info(PIN MM.Info(PINNO GP15))
Print 16, MM.Info(PINNO GP16),MM.Info(PIN MM.Info(PINNO GP16))
Print 17, MM.Info(PINNO GP17),MM.Info(PIN MM.Info(PINNO GP17))
Print 18, MM.Info(PINNO GP18),MM.Info(PIN MM.Info(PINNO GP18))
Print 19, MM.Info(PINNO GP19),MM.Info(PIN MM.Info(PINNO GP19))
Print 20, MM.Info(PINNO GP20),MM.Info(PIN MM.Info(PINNO GP20))
Print 21, MM.Info(PINNO GP21),MM.Info(PIN MM.Info(PINNO GP21))
Print 22, MM.Info(PINNO GP22),MM.Info(PIN MM.Info(PINNO GP22))
Print 23, MM.Info(PINNO GP23),MM.Info(PIN MM.Info(PINNO GP23))
Print 24, MM.Info(PINNO GP24),MM.Info(PIN MM.Info(PINNO GP24))
Print 25, MM.Info(PINNO GP25),MM.Info(PIN MM.Info(PINNO GP25))
Print 26, MM.Info(PINNO GP26),MM.Info(PIN MM.Info(PINNO GP26))
Print 27, MM.Info(PINNO GP27),MM.Info(PIN MM.Info(PINNO GP27))
Print 28, MM.Info(PINNO GP28),MM.Info(PIN MM.Info(PINNO GP28))
Print 29, MM.Info(PINNO GP29),MM.Info(PIN MM.Info(PINNO GP29))





-andreas
 
Print this page


To reply to this topic, you need to log in.

© JAQ Software 2024