FILE=OQ
AM.ST
1424
code:
//--------------------
G08 IF V126==#1 AJMP YIJIAHM
G08 MOV V126=#1
//----------
G30 EQ04 V400=U400000
G30 EQ04 V401=U400100
G30 EQ04 V402=U400200
G30 EQ04 V403=U400300
G30 EQ04 V404=U400400
G30 EQ04 V405=U400500
G30 EQ04 V406=U400600
G30 EQ04 V407=U400700
G30 EQ04 V408=U400800
G30 EQ04 V409=U400900
//----------
G30 EQ04 V410=U401000
G30 EQ04 V411=U401100
G30 EQ04 V412=U401200
G30 EQ04 V413=U401300
G30 EQ04 V414=U401400
G30 EQ04 V415=U401500
G30 EQ04 V416=U401600
G30 EQ04 V417=U401700
G30 EQ04 V418=U401800
G30 EQ04 V419=U401900
//----------
G30 EQ04 V420=U402000
G30 EQ04 V421=U402100
G30 EQ04 V422=U402200
G30 EQ04 V423=U402300
G30 EQ04 V424=U402400
G30 EQ04 V425=U402500
G30 EQ04 V426=U402600
G30 EQ04 V427=U402700
G30 EQ04 V428=U402800
G30 EQ04 V429=U402900
//----------
G30 EQ04 V430=U403000
G30 EQ04 V431=U403100
G30 EQ04 V432=U403200
G30 EQ04 V433=U403300
G30 EQ04 V434=U403400
G30 EQ04 V435=U403500
G30 EQ04 V436=U403600
G30 EQ04 V437=U403700
G30 EQ04 V438=U403800
G30 EQ04 V439=U403900
//----------
G30 EQ04 V440=U404000
G30 EQ04 V441=U404100
G30 EQ04 V442=U404200
G30 EQ04 V443=U404300
G30 EQ04 V444=U404400
G30 EQ04 V445=U404500
G30 EQ04 V446=U404600
G30 EQ04 V447=U404700
G30 EQ04 V448=U404800
G30 EQ04 V449=U404900
//----------
G30 EQ04 V450=U405000
G30 EQ04 V451=U405100
G30 EQ04 V452=U405200
G30 EQ04 V453=U405300
G30 EQ04 V454=U405400
G30 EQ04 V455=U405500
G30 EQ04 V456=U405600
G30 EQ04 V457=U405700
G30 EQ04 V458=U405800
G30 EQ04 V459=U405900
//----------
G30 EQ04 V460=U406000
G30 EQ04 V461=U406100
G30 EQ04 V462=U406200
G30 EQ04 V463=U406300
G30 EQ04 V464=U406400
G30 EQ04 V465=U406500
G30 EQ04 V466=U406600
G30 EQ04 V467=U406700
G30 EQ04 V468=U406800
G30 EQ04 V469=U406900
//----------
G30 EQ04 V470=U407000
G30 EQ04 V471=U407100
G30 EQ04 V472=U407200
G30 EQ04 V473=U407300
G30 EQ04 V474=U407400
G30 EQ04 V475=U407500
G30 EQ04 V476=U407600
G30 EQ04 V477=U407700
G30 EQ04 V478=U407800
G30 EQ04 V479=U407900
//----------
G30 EQ04 V480=U408000
G30 EQ04 V481=U408100
G30 EQ04 V482=U408200
G30 EQ04 V483=U408300
G30 EQ04 V484=U408400
G30 EQ04 V485=U408500
G30 EQ04 V486=U408600
G30 EQ04 V487=U408700
G30 EQ04 V488=U408800
G30 EQ04 V489=U408900
//----------
G30 EQ04 V490=U409000
G30 EQ04 V491=U409100
G30 EQ04 V492=U409200
G30 EQ04 V493=U409300
G30 EQ04 V494=U409400
G30 EQ04 V495=U409500
G30 EQ04 V496=U409600
G30 EQ04 V497=U409700
G30 EQ04 V498=U409800
G30 EQ04 V499=U409900
//----------
G08 PRINTFS V400 V401 V402 V403 V404 V405
G08 PRINTFS V406 V407 V408 V409 V410 V411
G08 PRINTFS V420 V421 V422 V423 V424 V425
G08 PRINTFS V426 V427 V428 V429 V430 V431
G08 PRINTFS V440 V441 V442 V443 V444 V445
G08 PRINTFS V446 V447 V448 V449 V450 V451
G08 PRINTFS V460 V461 V462 V463 V464 V465
G08 PRINTFS V466 V467 V468 V469 V470 V471
G08 PRINTFS V478 V479
G08 PRINTFS V480 V481 V482 V483 V484 V485
G08 PRINTFS V487 V488 V489 V490 V491 V492
G08 PRINTFS V493 V494 V495 V496 V497 V498
G08 INT V400
G08 INT V420
G08 INT V440
G08 INT V460
G08 INT V479
G08 INT V478
//----------
G08 AJMP YIJIAPRM
G08 YIJIAHM:
//--------------------
G08 MOV V188=#1//sIRQ=1
G08 MOV V187=#1//iIRQ=1
G07 P J1=0
G07 P J2=0
G07 P J3=0
G00 J4=0 J5=0
G07 P J4=0
G07 P J5=0
G07 P J6=0
G00 J1=0 J2=0 J3=0 J4=0 J5=0 J6=0
G08 ACALL J3HM
G08 ACALL J2HM
G08 ACALL J1HM
G07 P J1=0
G07 P J2=0
G07 P J3=0
G07 P J4=0
G07 P J5=0
G07 P J6=0
G07 VE=2400
G00 J1=0 J2=0 J3=0 J4=0 J5=0 J6=0
G07 VP=10
G07 BODY=READ
G08 MOV V188=#0//sIRQ=0
G08 MOV V187=#1//iIRQ=1
G08 AJMP KAISHI
//--------------------
G08 J1HM:
//G07 VE=2000
G07 vp=V487
G06 SCAN=I
G08 IF V192==#0 ACALL ISHOME
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G06 REPOS=-J1
G00 J1=30
G06 SCAN=I
G08 IF V192==#0 AJMP J1HM
G07 VE=1000
G06 REPOS=-J1
G00 J1=0
G08 END
G08 ISHOME:
G00 J1=50
G08 END
G08 J2HM:
//G07 VE=1200
G07 vp=V488
G06 SCAN=I
G08 IF V193==#0 ACALL J2ISHOME
G06 REPOS=-J2
G06 REPOS=-J2
G06 REPOS=-J2
G06 REPOS=-J2
G06 REPOS=-J2
G00 J2=30
G06 SCAN=I
G08 IF V193==#0 AJMP J2HM
G07 VE=1000
G06 REPOS=-J2
G00 J2=0
G08 END
G08 J2ISHOME:
G00 J2=50
G08 END
G08 J3HM:
//G07 VE=1200
G07 vp=V489
G06 SCAN=I
G08 IF V194==#0 ACALL J3ISHOME
G06 REPOS=-J3
G06 REPOS=-J3
G00 J3=30
G06 SCAN=I
G08 IF V194==#0 AJMP J3HM
G07 VE=1000
G06 REPOS=-J3
G00 J3=0
G08 END
G08 J3ISHOME:
G00 J3=50
G08 END
G08 KAISHI:
G08 MOV V127=#1
G08 FLTAB=0
G08 YIJIAPRM:
G08 CLOSE