4 ; TRANSMIT/K/M & AppMessage w/arg>1
10 Def_BaudRate equ BaudRateBase<<Def_BaudRateN
11 Def_Micros equ 0 ;1000
19 Char_Term equ '^' ;Termination
20 Char_TermRepl equ '?' ;How to replace Char_Term during recv
21 Char_CasCR equ $E4 ;<-/
22 Char_CasSep equ $F3 ;/#|
27 SerErrTabSize equ 13 ;*4
54 dbuf Bitmaps,6*(bm_SIZEOF-7*4)
55 dbuf.l SerErrMem,SerErrTabSize
73 dbuf WOpenHook,h_SIZEOF
74 dbuf AppObjHook,h_SIZEOF
75 dbuf SerBuf,SerBufSiz ;A!
76 dbuf LineBuf,LineBufSiz ;A!
77 dbuf AppDropBuf,AppBufSiz
79 dbuf.w MenusHots,PackMenuHots
89 get.l Arg_MicroWait,d0
93 NoMicros put.l d1,Arg_MicroWait
94 dtl <serial.device>,a0
99 NoDevice put.l a0,Arg_Device
105 NoDevUnit put.l d1,Arg_DevUnit
106 move.l #Def_BaudRate,d1
111 NoBaud put.l d1,Arg_Baud
116 LoopSerErr move.b -(a0),1(a1)
123 LoopSerErr2 move.l a2,(a1)+
124 SkipSerErr tst.b (a2)+
129 DoneSerErr get.l Arg_To,d0
136 DoMUI dtl <muimaster.library>,a0
137 moveq #MUIMaster_MVer,d0
139 put.l d0,muimasterbase
141 bset.b #svfb_errorreq,sv_flags+3(v)
156 moveq #MUIO_Button,d0
157 call muimaster,MUI_MakeObjectA
161 MUIDosError dtl <MUI error>,a0
162 SSDosError jump ss,DosError
164 GenTButton tst.b (a2)+
167 move.w #MUIA_CycleChain-MUITags,d0
172 move.w #MUIA_InputMode-MUITags,d0
173 moveq #MUIV_InputMode_Toggle,d1
174 get.l SettingsButton,a0
176 move.w #MUIA_Weight-MUITags,d0
181 move.w #MUIA_Popstring_Toggle-MUITags,d0
183 get.l TransmitButton,a0
185 move.w #MUIA_Popstring_Toggle-MUITags,d0
187 get.l ReceiveButton,a0
190 moveq #(6*32*16/8)>>2,d0
192 moveq #MEMF_PUBLIC!MEMF_CHIP,d1
193 call ss,TrackAllocMem
196 lea CasioIcons(pc),a2
201 SkipZeroPart tst.b (a4)+
206 move.l #$00040010,(a3)+ ;bm_BytesPerRow+bm_Rows
207 move.l #$00010000,(a3)+ ;bm_Flags+bm_Depth+bm_Pad
208 move.l a6,(a3)+ ;bm_Planes[0]
210 GenIconLine move.w (a2)+,d1
212 GenIconPix move.w d1,d4
221 lea MUI_StatBar(pc),a3
224 move.l d0,(a1)+ ;StatBar
225 get.l StatBarNumber,(a1)+ ;StatBarNum
226 SkipPartPart tst.b (a4)+
230 move.l #gnm_SIZEOF*PackMenuNum+1,d0
240 moveq #FirstMenuCode,d3
241 NextMenuField addq.b #NM_ITEM,(a3)
242 NextMenuTag move.b (a2)+,d0
247 subq.l #-NM_BARLABEL,gnm_Label(a3)
250 NotMenuSepar move.w #CHECKIT!MENUTOGGLE,gnm_Flags(a3)
253 GotMenuTitle subq.b #NM_ITEM-NM_TITLE,(a3)
254 GotMenuHot subq.b #2,d0
257 move.l a4,gnm_CommKey(a3)
259 NotMenuHot move.l a2,gnm_Label(a3)
260 ToEndLabel tst.b (a2)+
262 move.l d3,gnm_UserData(a3)
264 NextMenuRecord lea gnm_SIZEOF(a3),a3
268 moveq #MUIO_MenustripNM,d0
269 call muimaster,MUI_MakeObjectA
273 pea (FirstMenuCode+1).w
277 put.l d0,TransmitMItem
280 put.l d0,ReceiveMItem
289 move.l v,TC_Userdata(a0)
294 lea BaudRateFunc(pc),a3
295 call muimaster,MUI_CreateCustomClass
296 put.l d0,BaudRateClass
299 move.l mcc_Class(a0),a0
302 push #MUIA_CycleChain
304 push #MUIA_Numeric_Max
306 push #MUIA_Numeric_Value
311 call intuition,NewObjectA
313 put.l d0,BaudRateSlider
316 lea MUI_Applic(pc),a3
319 lea MUI_Notific(pc),a3
322 push TriggerValPtr(pc) ;28
324 push #MUIM_Popstring_Open ;20
326 vpush TransmitAsl ;12
327 pea (FirstMenuCode+1).w ;8
328 push #MUIA_Application_MenuAction ;4
332 get.l ReceiveAsl,12(sp)
336 addq.l #1,16(sp) ;->2
337 move.w #MUIM_Application_AboutMUI-MUITags,22(sp)
340 moveq #MUIV_Application_Load_ENVARC,d0
342 move.w #MUIM_Application_Load-MUITags,22(sp)
345 move.w #MUIM_Application_OpenConfigWindow-MUITags,22(sp)
348 move.w #MUIA_Window_Open-MUITags,6(sp)
349 move.l EveryTimePtr(pc),8(sp)
350 move.w #MUIM_CallHook-MUITags,22(sp)
352 lea WinOpenHook(pc),a1
353 move.l a1,h_Entry(a0)
358 move.w #MUIA_AppMessage-MUITags,6(sp)
360 addq.l #1,16(sp) ;->3
362 lea AppDropHook(pc),a1
363 move.l a1,h_Entry(a0)
371 move.w #MUIA_Window_Open-MUITags,d0
375 move.w #MUIA_Window_Open-MUITags,d0
384 LoopNewInput bsr.s DoMUIPoll
390 MUIPollEnd bset.l #SIGBREAKB_CTRL_C,d0
393 btst.l #SIGBREAKB_CTRL_C,d0
395 BreakOut moveq #err_break,d0
396 SSReportError jump ss,ReportError
398 DoMUIPoll call ss,TestBreak
401 push #MUIM_Application_NewInput
406 beq EXIT ;MUIV_Application_ReturnID_Quit
421 ButtonAct dc.w ActTransmit-ButtonAct ;0
422 dc.w ActReceive-ButtonAct ;1
423 dc.w ActSave-ButtonAct ;2
424 dc.w ActUse-ButtonAct ;3
425 dc.w ActRestore-ButtonAct ;4
426 dc.w ActAbort-ButtonAct ;5
427 dc.w Return8-ButtonAct ;6
428 dc.w Return8-ButtonAct ;7
429 dc.w ActAbout-ButtonAct ;8
431 ActAbout moveq #TRUE,d1
433 dtl.lc <Casio-A version 1.0 - The communication>,a0
434 dt.lc <software for Casio organizers series SF-Ax0>
435 dt.lc <© 1996 Short Software ',60,'short@k332.feld.cvut.cz',62,'>
436 dt.lc <This software is FreeWare.>
438 dt.lc <Thanks to Pavouk ',60,'pavouk@k332.feld.cvut.cz',62,'>
439 dt.lc <for testing, icons and hardware support.>
441 dt.lc <This is a MUI-Application,
442 dt <see "Project/About MUI..." for more.>
445 call ss,SimpleRequest
448 ApplicSleep move.w #MUIA_Application_Sleep-MUITags,d0
452 ActUse push #MUIV_Application_Save_ENV
455 ActSave push #MUIV_Application_Save_ENVARC
456 ActUseCont push #MUIM_Application_Save
459 move.w #MUIA_Window_Open-MUITags,d0
464 ActRestore push #MUIV_Application_Load_ENV
465 push #MUIM_Application_Load
470 ActTransmit get.l Arg_From,d0
472 get.l TransmitText,a0
476 ActReceive get.l ReceiveText,a0
483 ChangeState0 tstv.l muimasterbase
487 ChangeState clr.l -(sp)
496 move.w #MUIA_Menuitem_Enabled-MUITags,d0
499 get.l TransmitMItem,a0
501 move.w #MUIA_Menuitem_Enabled-MUITags,d0
503 get.l ReceiveMItem,a0
505 move.w #MUIA_Disabled-MUITags,d0
511 move.w #MUITags>>16,-(sp)
513 call intuition,SetAttrsA
517 ProcessCmdArgs get.l Arg_To,d0
521 NoArgTo get.l Arg_From,d0
523 TrasmitClear bsr.s DoTransmit
527 DoTransmit pea CallTransmit(pc)
531 DoReceive pea CallReceive(pc)
533 CallRoutine put.b d1,Inside
540 get.l DeviceString,a0
543 move.w #MUIA_Numeric_Value-MUITags,d0
547 move.w #MUIA_Numeric_Value-MUITags,d0
548 get.l BaudRateSlider,a0
554 move.w #MUIA_Numeric_Value-MUITags,d0
555 get.l MicroSecSlider,a0
557 put.l d0,Arg_MicroWait
561 dtl <Transmitting... %ld%% done>,a0
563 dtl <Receiving... %ld%% done>,a0
564 SkipRecvInfo move.l a0,d1
565 move.w #MUIA_Gauge_InfoText-MUITags,d0
566 get.l ProgressGauge,a0
571 vlea PartCounts+6*4,a2
573 ClearCounts clr.l -(a2)
589 AskDelete dtl.lc <Data file "%s" hasn''t been received correctly.>,a0
590 dt <Do you want to delete this corrupted file?>
592 dtl <Yes, I''ll retry.|No, leave it!>,a2
593 call ss,SimpleRequest
596 DoDelete move.l (sp),d1
598 WasTransmit addq #4,sp
603 SSExitCleanup jump ss,ExitCleanup
605 AddPartCount moveq #0,d0
609 IsZeroPart lsl.l #2,d0
610 lea PartCounts(v,d0.w),a1
626 move.w #MUIA_Text_Contents-MUITags,d0
633 CallReceive move.l a1,a0
634 moveq #OPEN_NEW+OPEN_LINEBUF,d0
640 put.b #ASCII_ACK,SerByte
641 WaitSig1 bsr GetSerByte
648 NextRcvPacket tstv.l muimasterbase
654 NotZeroPart subq.l #1,d0
660 NotUpdGauge bsr SendItNow
665 FullGaugeRet moveq #100,d0
666 ChkSetGauge vcmp.w GaugeSet,d0
668 DoSetGauge tstv.l muimasterbase
673 move.w #MUIA_Gauge_Current-MUITags,d0
674 get.l ProgressGauge,a0
677 NotEndTrans cmp.b #2,d0
679 dtl <Packet type ID: $02/$04 is $%02x>,a0
681 ExitErrorA1 move.l sp,a1
682 ExitError jump ExitError
684 GotValidPkt bsr GetSerByte
691 BadPartN dtl <Unknown packet part #: $%02x>,a0
697 SmallPartN lea PartTab(pc),a4
698 LoopPart subq.b #1,d0
706 dtl <',Char_Term,Char_Term,Char_Term,'>,a0
712 IsCurPart cmp.b #7,d7
714 dtl <',Char_Term,Char_Term,'>,a0
716 NoFirstRec bsr GetSerByte
723 cmp.w #SerBufSiz-1,d0
725 dtl <Packet too long: size=%u, max=%u>,a0
726 move.w #SerBufSiz-1,-(sp)
727 ExitErrorD0W move.w d0,-(sp)
730 OkaySize geta SerBuf,a4
737 NextXSumChar add.b d0,d7
742 dtl <Packet checksum bad - sum:$00 is $%02x>,a0
747 GoodXSum bsr AddPartCount
751 cmp.b #7,d0 ;CALENDAR
755 dtl <Packet data start magic @4:$F8 is $%02x>,a0
760 DoCalendar cmp.w #6,d3
762 dtl <Calendar data length:6 is %u>,a0
766 GoodCalLen move.w (a4)+,d0
771 ReadLELong move.b (a4)+,d2
775 NextDate addq.w #1,(sp)
781 NotMarked cmp.w #31,(sp)
786 PrintDate move.w d0,d1
793 add.w #$2000-$1A00,d0
794 Not2000 move.w d0,-(sp)
801 AfterF8 cmp.b #5,d0 ;SCHEDULE
805 dtl <Schedule data too short: size=%u, min=12>,a0
809 LongSchedDat moveq #0,d0
817 cmp.l #$00F30000,(sp)
819 BadSchDat move.w d0,-(sp)
820 dtl <Bad schedule data - @8:$F3 is $%02x, @13:$F3 is $%02x, @15:$00 is $%02x>,a0
834 dtl <-%02x: %02x:%02x>,a0
851 NoEndTime move.b 9(a4),d0
859 NoSchedImg moveq #10,d0
863 BefRecScan moveq #0,d2
864 MainRecScan move.b (a4)+,d0
868 moveq #Char_TermRepl,d0
871 NotCharTerm cmp.b #Char_CasSep,d0
880 NotCharF3 cmp.b #Char_CasCR,d0
882 DoCharNL addq.l #1,d2
885 NotCharE4 move.w d0,-(sp)
892 DoneThisRec moveq #10,d0
896 FlushRecScan tst.l d2
897 FlushRecScanX beq Return7
903 CallTransmit put.l a1,TransmitFName
912 move.l bh_handle(a0),d1
917 moveq #OFFSET_BEGINNING,d3
922 addqv.l #1,TxFileSize
923 EmptyFile bsr SerialInit
929 move.w #ASCII_CR<<8!ASCII_LF,-(sp)
935 NextLine addqv.l #1,CurLine
938 move.l #LineBufSiz,d0
948 StringOK cmp.w #Char_Term<<8!Char_Term,(a3)
954 cmp.b #Char_Term,(a3)+
956 DoInvUse dt InvUseT,<Invalid use of ''',Char_Term,'''%s>
960 ReadPartID lea PartTab(pc),a4
963 LoopRdPartN move.l a3,a0
968 ScanRdPartN tst.b (a4)+
973 DoUnkPID dt UnkPIDT,<Unknown part ID%s>,a0
975 ErrDesc geta LineBuf,a0
981 get.l TransmitFName,a2
991 dtl < in "%s", line %lu: "%s">,a0
1000 NotSpec move.l d6,a0
1009 clr.w (a0)+ ;Length 2 B filled L8R
1015 move.b #Char_CasSep,(a0)+
1018 WrSchedule moveq #'-',d3
1030 move.w #Char_CasSep<<8,(a4)+
1034 LoopSch2Col move.b (a3)+,d0
1041 TermSch2ColX subq #1,a3
1042 TermSch2Col bsr StrStrToLA4
1048 move.l #$30F30000,(a4)+
1050 SkipSchSpc move.b (a3)+,d0
1059 LoopSch3Col move.b (a3)+,d0
1064 TermSch3Col bsr StrStrToLA4
1069 NoEndSchTim move.l a4,a0
1070 LoopSch4Col move.b (a3)+,d0
1075 TermSch4Col bsr StrStrToLA4
1081 LoopSch5Col move.b (a3)+,d0
1085 BadSched get.l ErrPtr,sp
1086 dt BadSchedT,<Schedule format bad - req. "YEAR-MN-DY: HS:MS[-HE:ME] [ICON]"%s>
1090 DoneSchParse move.l a4,d6
1093 SchReadHour bsr SchedStrStr
1096 ConvByteBCD divu.w #10,d0
1103 ParseYear move.l a0,a4
1104 LoopYrMin move.b (a3)+,d0
1112 BadYear dt BadYearT,<Year/Month format bad - req. "YEAR-MN"%s>
1116 SmallYrYear cmp.w #1901,d0
1120 LoopYrCol move.b (a3)+,d0
1149 WrCalendar moveq #':',d3
1152 NextCalenDay move.l a4,a0
1153 SkipSpcCalen move.b (a3)+,d0
1159 SkipZeroCal move.b (a3)+,d0
1160 SkipZeroCalI cmp.b #'0',d0
1162 CopyDayNum move.b d0,(a4)+
1168 DoneDayNum clr.b (a4)
1176 BadCalend dt CalBadT,<Calendar format bad - req. "...: D1 D2 ... Dn"%s>
1180 SchedStrStr move.l a4,a0
1181 LoopSchCol move.b (a3)+,d0
1186 StrStrToLA4 clr.b -(a4)
1189 StrStrToL move.b (a0)+,d0
1198 SendCalend moveq #3,d0
1199 WrCalenLong move.b d2,(a4)+
1206 AlreadyBeginX moveq #Char_CasCR-$100,d0
1209 AlreadyBegin move.b (a3)+,d0
1215 NotNL cmp.b #Char_Term,d0
1220 moveq #Char_CasSep-$100,d0
1221 PutToBuf geta SerBuf+SerBufSiz-1,a1
1224 move.w #SerBufSiz,-(sp)
1225 dt PktDatLT,<Packet data too long - max=%u%s>
1229 GoodPktLen move.b d0,(a0)+
1234 tstv.l muimasterbase
1238 call utility,UMult32
1240 call utility,UDivMod32
1243 NoMUITxProg move.l d6,d0
1256 TxXSum add.b (a1)+,d2
1263 DoSendBuf subq.w #1,d0
1274 DoSendByte put.b d0,SerByte
1276 move.l trk_data(a1),a0
1277 get.l Arg_MicroWait,IOTV_TIME+TV_MICRO(a0)
1279 clr.l IOTV_TIME+TV_SECS(a0)
1280 dtl <TR_ADDREQUEST>,a0
1282 SendItNow get.l SerialIO,a0
1284 move.l a1,IO_DATA(a0)
1286 move.l d0,IO_LENGTH(a0)
1287 move.w #CMD_WRITE,IO_COMMAND(a0)
1292 WaitAck bsr.s GetSerByte
1297 dtl <Casio memory exhausted - got $%02x (ACK=$06)%s>,a0
1300 dtl <Casio remote abort - got $%02x (ACK=$06)%s>,a0
1303 dtl <Expected ACK - $06, got $%02x%s>,a0
1308 GetSerByte moveq #1,d0
1316 SerReceiveX move.l a4,a0
1317 SerReceive get.l SerialIO,a1
1318 move.l a0,IO_DATA(a1)
1319 move.w #CMD_READ,IO_COMMAND(a1)
1320 move.l d0,IO_LENGTH(a1)
1321 move.l MN_REPLYPORT(a1),a0
1322 move.b MP_SIGBIT(a0),d5
1324 LoopSerInput tstv.l muimasterbase
1329 pea SSExitCleanup(pc)
1330 put.b #ASCII_EOT,SerByte
1333 SkipAbort get.l SerialIO,a1
1337 tstv.l muimasterbase
1339 get.l MUIWaitMask,d0
1341 ForceMUIPoll bset.l d5,d0
1345 DoneReadIO get.l SerialIO,a1
1351 ;Stolen from SSLib.asm
1360 move.l 0(a0,d1.w),d2
1361 moveq #err_iofail2,d0
1369 0$ moveq #err_iofail,d0
1371 01$ dtl <CMD_READ>,a1
1374 SerialInit dt TimerDev,<timer.device>
1378 moveq #UNIT_MICROHZ,d0
1383 move.w #TR_ADDREQUEST,IO_COMMAND(a1)
1386 get.l Arg_DevUnit,d0
1387 moveq #IOEXTSER_SIZE,d1
1394 move.w #SDCMD_SETPARAMS,IO_COMMAND(a1)
1395 get.l Arg_Baud,IO_BAUD(a1)
1396 move.l #$08080100!SERF_XDISABLED!SERF_RAD_BOOGIE,IO_READLEN(a1)
1397 ;io_ReadLen,io_WriteLen,io_StopBits,io_SerFlags
1398 dtl <SDCMD_SETPARAMS>,a0
1402 GenerateMUI gett __BaseText,a2
1403 get.l muimasterbase,a6
1409 .loop2 move.l #MUITags,d2
1417 .loopnext moveq #0,d3
1422 add.l a2,d3 ; String
1426 .numb cmp.w #$2000,d3 ; Number
1446 .var move.l (a5,d3.w),-(sp)
1449 .end move.l -4(a4),a0
1464 DoMethodAppl get.l ApplObj,a2
1465 DoMethod lea 4(sp),a1
1467 DoMethodEntry move.l h_Entry(a0),a6
1470 GetAttrStr move.w #MUIA_String_Contents-MUITags,d0
1471 GetAttr move.l #MUITags,d1
1476 call intuition,GetAttr
1480 ;-1=Done,-2=TriggerValue,-3=ReturnID_Quit,-4=ID 1
1481 SetNotify move.l sp,d2
1487 move.l #MUIV_TriggerValue,d0
1488 TriggerValPtr equ *-4
1491 push #MUIV_Application_ReturnID_Quit
1497 RetQuitID push #MUIM_Application_ReturnID
1502 FilledLongD0E ext.l d0
1503 FilledLongD0 push d0
1505 move.w #MUITags>>16,-(sp)
1511 DoneRetID move.w (a3)+,d0
1516 move.l #MUIV_EveryTime,(sp)
1517 EveryTimePtr equ *-4
1518 NotEveryTime move.w (a3)+,-(sp)
1519 move.w #MUITags>>16,-(sp)
1527 BaudRateFunc cmp.l #MUIM_Numeric_Stringify,(a1)
1529 move.l cl_Super(a0),a0
1532 GotNumString move.w cl_InstOffset(a0),d0
1535 move.l 4(a1),d0 ;offsetof(struct MUIP_Numeric_Stringify,value)
1541 move.l ThisTask(a0),a0
1542 move.l TC_Userdata(a0),v
1551 WinOpenHook mpush a5/a6
1553 move.w #MUIA_Window_Window-MUITags,d0
1556 get.l sv_thistask,a0
1557 move.l d0,pr_WindowPtr(a0)
1561 AppDropHook mpush d2/d3/a2/a5/a6
1564 move.l am_NumArgs(a1),d0
1568 BeepDropHook sub.l a0,a0
1569 call intuition,DisplayBeep
1572 OneDropHook tstv.b Inside
1574 move.l am_ArgList(a1),a0
1575 move.l (a0)+,d1 ;wa_Lock
1579 move.l #AppBufSiz,d3
1580 call dos,NameFromLock
1591 push #MUIM_Application_ReturnID
1594 move.w #MUIA_Application_Iconified-MUITags,d0
1598 DoneDropHook mpop d2/d3/a2/a5/a6
1601 Cleanup get.l muimasterbase,a6
1606 call MUI_DisposeObject
1607 NoApplObj get.l BaudRateClass,d0
1610 clrv.l BaudRateClass
1611 jump MUI_DeleteCustomClass
1613 dc.b 0,1,15,3,11,3,4,1,1
1614 SerErrTab dc.b 'DevBusy',0
1619 dc.b 'BufOverflow',0
1621 dc.b 'DetectedBreak',0
1622 ;!!! SerErrTabSize on begin - keep fresh
1624 PackMenus dc.b 0,'Project',0 ;0
1625 dc.b 'T'+2,'Transmit...',0 ;1
1626 dc.b 'R'+2,'Receive...',0 ;2
1628 dc.b '?'+2,'About...',0 ;3
1629 dc.b 1,'About MUI...',0 ;4
1631 dc.b 'H'+2,'Hide',0 ;5
1632 dc.b 'Q'+2,'Quit',0 ;6
1633 dc.b 0,'Configuration',0 ;7
1634 dc.b -2,'C'+2,'Settings',0 ;8
1635 dc.b 1,'Restore last saved',0 ;9
1637 dc.b 'M'+2,'MUI...',0 ;10
1639 ;!!! PackMenuHots on begin - keep fresh
1641 PartTab dc.b 'ProtID',0 ;0
1646 dc.b 'Schedule',0 ;5
1648 dc.b 'Calendar',0 ;7
1660 dc.w \1+\2-__BaseText
1696 dc.w $4000+(\2&$3FFF)
1723 ifc 'TriggerValue','\6'
1728 dc.w MUIA_\5-MUITags,\4
1730 ifc 'EveryTime','\3'
1735 dc.w MUIA_\2-MUITags,\1
1742 MObj 0,Application,ApplObj
1743 MText MUIA_Application_Title,<Casio-A>
1744 MText MUIA_Application_Version,<$VER: Casio-A 1.0 (31.8.96)>
1745 MText MUIA_Application_Copyright,<© 1996 Short Software>
1746 MText MUIA_Application_Author,<Jan Kratochvil>
1747 MText MUIA_Application_Description,<Comm. tool for Casio series A organizers>
1748 MText MUIA_Application_Base,<Casio-A>
1749 MVar MUIA_Application_Menustrip,MenuStrip
1750 MObj MUIA_Application_Window,Window,MainWin
1751 MText MUIA_Window_Title,<Casio-A Communicator>
1752 MNum MUIA_Window_ID,'MAIN'
1753 MNum MUIA_Window_AppWindow,TRUE
1754 MObj MUIA_Window_RootObject,Group
1755 MObj MUIA_Group_Child,Group,GaugeGroup
1756 MNum MUIA_Group_Horiz,TRUE
1757 MNum MUIA_Frame,MUIV_Frame_Button
1758 MNum MUIA_Disabled,TRUE
1759 MVar MUIA_Group_Child,AbortButton
1760 MObj MUIA_Group_Child,Gauge,ProgressGauge
1761 MNum MUIA_Gauge_Horiz,TRUE
1762 MText MUIA_Gauge_InfoText,<%ld%%>
1763 MNum MUIA_Frame,MUIV_Frame_Gauge
1766 MObj MUIA_Group_Child,Rectangle
1768 MObj MUIA_Group_Child,Group
1769 MNum MUIA_Group_Columns,2
1770 MNum MUIA_Frame,MUIV_Frame_Text
1771 MVar MUIA_Group_Child,QuitButton
1772 MVar MUIA_Group_Child,SettingsButton
1773 MObj MUIA_Group_Child,Popasl,ReceiveAsl
1774 MVar MUIA_Popstring_Button,ReceiveButton
1775 MObj MUIA_Popstring_String,String,ReceiveText
1776 MNum MUIA_ExportID,6
1777 MNum MUIA_ShowMe,FALSE
1779 MText ASLFR_TitleText,<Receive from Casio to file...>
1780 MNum ASLFR_DoSaveMode,TRUE
1781 MNum ASLFR_RejectIcons,TRUE
1783 MObj MUIA_Group_Child,Popasl,TransmitAsl
1784 MVar MUIA_Popstring_Button,TransmitButton
1785 MObj MUIA_Popstring_String,String,TransmitText
1786 MNum MUIA_ExportID,5
1787 MNum MUIA_ShowMe,FALSE
1789 MText ASLFR_TitleText,<Files for transmit to Casio...>
1790 MNum ASLFR_RejectIcons,TRUE
1793 MObj MUIA_Group_Child,Rectangle
1795 MObj MUIA_Group_Child,Group
1796 MNum MUIA_Group_Columns,2
1797 MNum MUIA_Frame,MUIV_Frame_Group
1798 MText MUIA_FrameTitle,<Casio Modes>
1799 MVar MUIA_Group_Child,StatBar5
1800 MVar MUIA_Group_Child,StatBar2
1801 MVar MUIA_Group_Child,StatBar4
1802 MVar MUIA_Group_Child,StatBar1
1803 MVar MUIA_Group_Child,StatBar3
1804 MVar MUIA_Group_Child,StatBar0
1808 MVar MUIA_Application_DropObject,MainWin
1809 MObj MUIA_Application_Window,Window,ConfigWin
1810 MText MUIA_Window_Title,<Casio-A Settings>
1811 MNum MUIA_Window_ID,'SETT'
1812 MObj MUIA_Window_RootObject,Group,ConfigGroup
1813 MObj MUIA_Group_Child,Group
1814 MNum MUIA_Group_Horiz,TRUE
1815 MVar MUIA_Group_Child,CloseButton
1816 MVar MUIA_Group_Child,RestoreButton
1817 MVar MUIA_Group_Child,UseButton
1818 MVar MUIA_Group_Child,SaveButton
1820 MObj MUIA_Group_Child,Group,MicroSecSlider
1821 MNum MUIA_Group_Columns,2
1822 MNum MUIA_Frame,MUIV_Frame_Button
1823 MObj MUIA_Group_Child,Slider
1824 MNum MUIA_Numeric_Min,0
1825 MNum MUIA_Numeric_Max,1000
1826 MNum MUIA_Numeric_Value,Def_Micros
1827 MNum MUIA_ExportID,4
1828 MNum MUIA_CycleChain,TRUE
1830 MObj MUIA_Group_Child,Text
1831 MText MUIA_Text_Contents,<',27,'rDelay [MicroSec]>
1832 MNum MUIA_HorizWeight,0
1834 MVar MUIA_Group_Child,BaudRateSlider
1835 MObj MUIA_Group_Child,Text
1836 MText MUIA_Text_Contents,<',27,'rBaud rate>
1837 MNum MUIA_HorizWeight,0
1839 MObj MUIA_Group_Child,String,UnitNumber
1840 MText MUIA_String_Accept,<0123456789>
1841 MNum MUIA_Frame,MUIV_Frame_String
1842 MVar MUIA_String_Integer,Arg_DevUnit
1843 MNum MUIA_ExportID,2
1844 MNum MUIA_CycleChain,TRUE
1846 MObj MUIA_Group_Child,Text
1847 MText MUIA_Text_Contents,<',27,'rDevice unit>
1848 MNum MUIA_HorizWeight,0
1850 MObj MUIA_Group_Child,String,DeviceString
1851 MNum MUIA_Frame,MUIV_Frame_String
1852 MVar MUIA_String_Contents,Arg_Device
1853 MNum MUIA_ExportID,1
1854 MNum MUIA_CycleChain,TRUE
1856 MObj MUIA_Group_Child,Text
1857 MText MUIA_Text_Contents,<',27,'rDevice>
1858 MNum MUIA_HorizWeight,0
1867 MNum MUIA_Group_Horiz,TRUE
1868 MNum MUIA_Frame,MUIV_Frame_Text
1869 MObj MUIA_Group_Child,Rectangle
1870 MNum MUIA_FixWidth,1
1872 MObj MUIA_Group_Child,Text,StatBarNumber
1873 MText MUIA_Text_Contents,< 0>
1874 MText MUIA_Text_PreParse,<',27,'r',27,'8>
1876 MObj MUIA_Group_Child,Text
1877 MVar MUIA_Text_Contents,StatBarText
1878 MNum MUIA_Text_SetMax,TRUE
1880 MObj MUIA_Group_Child,Rectangle
1881 MNum MUIA_Rectangle_VBar,TRUE
1882 MNum MUIA_FixWidth,1
1884 MObj MUIA_Group_Child,Bitmap
1885 MVar MUIA_Bitmap_Bitmap,StatBarBMap
1886 MNum MUIA_Bitmap_Width,32
1887 MNum MUIA_Bitmap_Height,16
1888 MNum MUIA_Bitmap_Precision,PRECISION_ICON
1889 MNum MUIA_Frame,MUIV_Frame_None
1890 MNum MUIA_FixWidth,32
1891 MNum MUIA_FixHeight,16
1896 Notify SettingsButton,Selected,EveryTime,ConfigWin,Window_Open,TriggerValue
1897 Notify ConfigWin,Window_Open,EveryTime,SettingsButton,Selected,TriggerValue
1898 Notify ConfigWin,Window_Open,EveryTime,ConfigMItem,Menuitem_Checked,TriggerValue
1899 Notify ConfigWin,Window_CloseRequest,TRUE,ConfigWin,Window_Open,FALSE
1900 Notify CloseButton,Pressed,FALSE,ConfigWin,Window_Open,FALSE
1901 Notify MainWin,Window_CloseRequest,TRUE,Quit
1902 Notify TransmitText,String_Acknowledge,EveryTime,0
1903 Notify ReceiveText,String_Acknowledge,EveryTime,1
1904 Notify QuitButton,Pressed,FALSE,Quit
1905 Notify SaveButton,Pressed,FALSE,2
1906 Notify UseButton,Pressed,FALSE,3
1907 Notify RestoreButton,Pressed,FALSE,4
1908 Notify AbortButton,Pressed,FALSE,5
1909 Notify ApplObj,Application_MenuAction,FirstMenuCode+5,ApplObj,Application_Iconified,TRUE
1910 Notify ApplObj,Application_MenuAction,FirstMenuCode+6,Quit
1911 Notify ConfigMItem,Menuitem_Checked,EveryTime,ConfigWin,Window_Open,TriggerValue
1914 CasioIcons incbin "Casio-A.gfx"
1917 template <TO=RECEIVE/K,FROM=TRANSMIT/K,DEVICE/K,DEVUNIT/K/N,BAUD/K/N,MICROWAIT/K/N,MUI/S>
1926 diserr 1<<err_number