setbaud 1,9600,8,n,1 reset_0: mode_reco movd " /n",s15,210 movs s15,210,s15,220,10 movs s15,210,s15,230,10 movs s15,210,s15,240,10 setl 11,2 setl 12,2 setl 13,2 setl 14,2 setl 15,2 call init_dbs2 movd "return from okay!/n",s12,100 out s12,100,c4 compd "CONFIG",s8,200 jz setup_1 call init_b0 call init_b1 call init_b2 movd "return from buffer-init okay!/n",s12,100 out s12,100,c4 movd "CONFIG ",s8,200 movd "4761 ",s8,210 movd "3 ",s8,220 movd "20 ",s8,230 movd "1234 ",s8,240 movd "911114 ",s8,190 clear s14,0 setc 9,0 setc 5,0 setup_1: movd " ",s9,70 movc s8,220,7 setc 8,70 setc 6,20 lf_set: movd "/l",s9,c8 incc 8 decc 7 jz cr_set decc 6 jnz lf_set cr_set: movd "/n",s9,c8 movd "***** NOTRUF ***** LFD NR.: *****/n",s9,100 setc 1,80 setc 0,5 movd "NOTRUF /l/n",s12,0 movd "3<3",s12,8 movd "Modul 3 LGNOTR V1.1 by J. Hoerhager AOH start/n",s12,0 out s12,0,c4 setl 11,2 setl 6,0 clear rx_sign call notruf_reset reset_01: movd "F",s15,149 movd " ",s11,100 setup_0: clear cntl_sign main_start: movd "0 ",s11,250 call print_state main: setl 11,1 setl 12,0 setl 13,0 setl 14,0 setl 15,0 movd "F",s15,149 sett 200 wait tf_sign,cntl_sign,im_sign case tf_sign,test_cntl compd "2824conn",s11,240 jz main call pr_2824err movd "2824conn",s11,240 jmp main test_cntl: case cntl_sign,test_im_sign movd "WATCHMAN 3 Message /n",s12,0 movs s11,100,s12,20,60 out s12,0,c4 compd "RING",s11,140 jz m3_ring movd " ",s11,100 jmp main_start print_state: movd "Modul 3 LGNOTR STATE /n",s12,0 movs s11,250,s12,23,3 out s12,0,c4 ret m3_ring: setl 11,2 movd "1 ",s11,250 call print_state movs s11,110,s8,0,20 movd " /n",s14,0 movd "2 0 ",s15,100 movs s8,0,s15,0,20 compd " ",s15,0 jz no_number acall pfirst_dbs movd "2 0 ",s15,100 acall find_dbs jnz no_number acall read_dbs out s14,0,c4 call notruf_akti compd "T",s14,12 jz emergency_call compd "P",s14,12 jz emergency_call acall read_dt movd "0 ",s15,210 movs s15,188,s15,210,2 movd "7 ",s15,220 acall comp compd "LT",s15,204 jz no_emergency movd "16 ",s15,220 acall comp compd "GT",s15,204 jnz emergency_call no_emergency: call notruf_outside jmp no_number emergency_call: movd " Routine emergency_call enter/n",s12,0 out s12,0,c4 movd " /n",s11,0 clearmfv offhook call wait_dial_tone test_1: compc 5,35 jnz dial_error_1 movd "dialing dirpick/n",s12,0 out s12,0,c4 mfvout s8,190 sett 20 wait tf_sign setc 4,3 state_1: clearmfv movd " /n",s11,0 movd "make flash after dirpick/n",s12,0 out s12,0,c4 flash_100 call wait_dial_tone test_2: compc 5,35 jnz dial_error movs s14,4,s8,210,4 call notruf_verbinden movd "dialing to emergency extension/n",s12,0 out s12,0,c4 mfvout s8,210 clearmfv movd " /n",s11,0 setc 3,5 state_2: call vps_code compc 5,255 jnz test_3 decc 3 jnz state_2 flash_100 sett 20 wait tf_sign decc 4 jnz state_1 movd " Error on transfer to emergency extension no dialing code! VPS-Port?/n",s12,0 out s12,0,c4 connect_twg: flash_100 sett 20 wait tf_sign jmp state_twg_connect test_3: compc 5,36 jz free_extension compc 5,37 jz busy_extension compc 5,49 jz notruf_offhook compc 5,38 jz busy_extension movd " Undefined code: /n",s12,0 movs s11,0,s12,17,10 out s12,0,c4 try_again: flash_100 movd " Trying again !!!/n",s12,0 out s12,0,c4 sett 20 wait tf_sign decc 4 jnz state_1 state_twg_connect: clearmfv movd " /n",s11,0 movd " Transfer call to TWG-extension/n",s12,0 out s12,0,c4 call notruf_weiter flash_100 call wait_dial_tone compc 5,35 jnz dial_error movd " Routine connect_twg/n",s12,0 out s12,0,c4 movd " ",s12,100 movs s14,8,s12,100,4 mfvout s12,100 clearmfv movd " /n",s11,0 state_twg_1: call wait_dial_tone compc 5,36 jz state_twg_2 movd "Error_TWG code: /n",s12,0 movs s11,0,s12,17,10 out s12,0,c4 flash_100 sett 20 onhook jmp main_start state_twg_2: onhook jmp main_start free_extension: movd " Extension is free wait for offhook/n",s12,0 out s12,0,c4 setc 3,5 free_l1_ext: call vps_code compc 5,255 jnz test_1_free decc 3 jnz free_l1_ext jmp try_again test_1_free: compc 5,49 jnz test_2_free jmp notruf_offhook test_2_free: compc 5,36 jz cancel_notruf movd " received on waiting for offhook/n",s12,0 out s12,0,c4 jmp free_l1_ext cancel_notruf: onhook call notruf_cancel movd " Emergency call cancel/n",s12,0 out s12,0,c4 jmp main_start busy_extension: call notruf_busy movd " Extension is busy wait timeout and try again/n",s12,0 out s12,0,c4 decc 4 jz busy_state_1 sett 100 wait tf_sign busy_state_1: incc 4 jmp try_again notruf_offhook: onhook sett 10 wait tf_sign call notruf_beant movd " Extension offhook/n",s12,0 out s12,0,c4 jmp main_start dial_error: flash_100 dial_error_1: sett 20 wait tf_sign movd " ERROR ERROR on dialing, no dial tone/n",s12,0 out s12,0,c4 onhook call notruf_cancel jmp main_start wait_dial_tone: call vps_code compc 5,255 jnz e_wait_dial_tone call vps_code compc 5,255 jnz e_wait_dial_tone call vps_code compc 5,255 jnz e_wait_dial_tone movd " Error no dial tone code found !!! VPS-Port? /n",s12,0 out s12,0,c4 e_wait_dial_tone: ret no_number: movd "keine Rufnummer oder Rufnummer nicht in DBS!!! /n",s12,0 out s12,0,c4 movd "AT*A/n",s12,0 out s12,0,c0 sett 20 wait tf_sign movd "AT*H/n",s12,0 out s12,0,c0 jmp main_start vps_code: setc 5,255 movd " /n",s11,0 sett 30 getmfv s11,0 jz vps_exit compd "A",s11,0 jz state_a compd "B",s11,0 jz state_b compd "C",s11,0 jz state_c movd "/n",s11,1 setc 5,253 jmp vps_exit state_a: sett 15 getmfv s11,1 jz vps_exit movd "/n",s11,2 compd "A",s11,1 jz state_aa compd "0",s11,1 jz state_a0 compd "1",s11,1 jz state_a1 compd "2",s11,1 jz state_a2 compd "3",s11,1 jz state_a3 compd "4",s11,1 jz state_a4 compd "5",s11,1 jz state_a5 compd "6",s11,1 jz state_a6 compd "7",s11,1 jz state_a7 compd "8",s11,1 jz state_a8 compd "9",s11,1 jz state_a9 setc 5,254 ret state_a0: setc 5,0 jmp vps_exit state_a1: setc 5,1 jmp vps_get_ext state_a2: setc 5,2 jmp vps_get_ext state_a3: setc 5,3 jmp vps_get_ext state_a4: setc 5,4 jmp vps_get_ext state_a5: setc 5,5 jmp vps_get_ext state_a6: setc 5,6 jmp vps_get_ext state_a7: setc 5,7 jmp vps_exit state_a8: setc 5,8 jmp vps_get_tree state_a9: setc 5,9 jmp vps_get_tree_ext state_aa: setc 5,253 jmp vps_exit state_b: sett 15 getmfv s11,1 jz vps_exit compd "4",s11,1 jz state_b4 compd "5",s11,1 jz state_b5 compd "6",s11,1 jz state_b6 compd "7",s11,1 jz state_b7 compd "8",s11,1 jz state_b8 compd "9",s11,1 jz state_b9 setc 5,254 ret state_b4: setc 5,34 movd " Forwarding info /n",s12,0 jmp vps_1exit state_b5: setc 5,35 movd " Dialing tone/n",s12,0 jmp vps_1exit state_b6: setc 5,36 movd " Ringback tone/n",s12,0 jmp vps_1exit state_b7: setc 5,37 movd " Busy tone/n",s12,0 jmp vps_1exit state_b8: setc 5,38 movd " Unobtainable tone/n",s12,0 jmp vps_1exit state_b9: setc 5,39 movd " Extension onhook/n",s12,0 jmp vps_1exit state_c: sett 15 getmfv s11,1 jnz state_clock setc 5,49 movd "/n",s11,2 movd " Extension offhook/n",s12,0 jmp vps_1exit state_clock: movd "/n",s11,2 compd "0",s11,1 jz state_date_time compd "1",s11,1 jz state_day_switch compd "2",s11,1 jz state_night_switch setc 5,254 ret state_date_time: setc 5,40 jmp vps_exit state_day_switch: setc 5,41 jmp vps_exit state_night_switch: setc 5,42 jmp vps_exit vps_1exit: out s11,0,c4 out s12,0,c4 vps_exit: ret vps_get_ext: setc 6,4 setc 7,2 vps_get_loop: sett 15 getmfv s11,c7 jz vps_get_exit incc 7 movd "/n",s11,c7 decc 6 jnz vps_get_loop ret vps_get_exit: setc 0,2 decc 0 ret vps_get_tree: setc 6,4 setc 7,2 jmp vps_get_loop vps_get_tree_ext: setc 6,4 setc 7,2 call vps_get_loop jnz vps_get_exit setc 6,4 jmp vps_get_loop test_im_sign: case im_sign,sign_err in s12,10 compd "init/n",s12,10 jnz cfg_cmd1 ansd "OKAY!/n" cfg_cmd01: movd " ",s8,200 jmp reset_0 cfg_cmd1: cfg_cmd2: compd "set",s12,10 jnz cfg_cmd3 call cmd_set anss s12,10 jmp main_start cfg_cmd3: compd "disp hist ",s12,10 jnz cfg_cmd4 call disp_history jmp main_start cfg_cmd4: compd "disp config",s12,10 jnz cfg_cmde call disp_config jmp main_start cfg_cmde: out s12,0,c4 movd "ERR_CMD/n",s12,11 out s12,0,c4 anss s12,10 jmp main_start sign_err: movd " SIGNAL_ERROR/n",s12,11 out s12,0,c4 jmp main_start notruf_akti: call set_nstr_1 movd "**** Alarmentgegennahme /n",s10,0 call set_nstdef_str call send_start call print_out call write_hist ret notruf_verbinden: call set_nstr_1 movd "**** Verbinde zu: /n",s10,0 movs s14,4,s10,20,4 call set_nstdef_str call send_start call print_out call write_hist ret notruf_beant: call set_nstr_1 movd "**** Verbunden mit: /n",s10,0 movs s14,4,s10,20,4 call set_nstdef_str call send_stop call print_out call write_hist ret notruf_weiter: call set_nstr_1 movd "**** weitergeleitet zu Alarmk.: /n",s10,0 movs s14,8,s10,32,4 call set_nstdef_str call send_stop call print_out call write_hist ret notruf_busy: call set_nstr_1 movd "**** Nebenstelle besetzt: /n",s10,0 movs s14,4,s10,26,4 call set_nstdef_str call send_start call print_out call write_hist ret notruf_cancel: call set_nstr_1 movd "**** Notrufnebenstelle hat aufgelegt /n",s10,0 call set_nstdef_str call send_stop call print_out call write_hist ret notruf_outside: call set_nstr_1 movd "**** abgehoben auáerhalb 7 - 17 Uhr /n",s10,0 call set_nstdef_str call send_stop call print_out call write_hist ret set_nstr_1: compd "P",s14,12 jnz testing_H movd "**** Polizei-Notruf von: /n",s10,100 ret testing_h: compd "H",s14,12 jnz testing_t movd "**** Alarm Apparat von: /n",s10,100 ret testing_t: movd "**** Alarm Raumberwachung von: /n",s10,100 ret set_nstdef_str: movd "**************************************** LFD NR.: *****/n",s9,100 movs s8,0,s10,137,4 movs s14,13,s10,142,16 acall fread_dt movs s15,150,s10,41,23 ret notruf_reset: movd "**** NOTRUF message /n",s10,100 movd "**** SYSTEM RESET ***** /n",s10,0 movd "**************************************** LFD NR.: *****/n",s9,100 acall fread_dt movs s15,150,s10,41,23 call send_stop call print_out call write_hist ret pr_2824err: movd "**** NOTRUF message /n",s10,100 movd "**** Error keine Verbindung mit 2824 ** /n",s10,0 movd "**************************************** LFD NR.: *****/n",s9,100 acall fread_dt movs s15,150,s10,41,23 call send_stop call print_out call write_hist ret print_out: movc 5,s9,150 incc 5 out s10,100,c4 out s10,100,c5 out s10,0,c4 out s10,0,c5 out s9,100,c4 out s9,100,c5 out s10,70,c5 writeb s10,100,1 writeb s10,100,2 writeb s10,0,1 writeb s10,0,2 writeb s9,100,1 writeb s9,100,2 writeb s10,70,1 writeb s10,70,2 sendsig ans_sign,c1 sendsig ans_sign,c2 ret send_start: movd "START/n",s10,200 writeb s10,200,1 writeb s10,200,2 out s10,200,c4 ret send_stop: movd "STOP/n",s10,200 writeb s10,200,1 writeb s10,200,2 out s10,200,c4 ret write_hist: writeb s10,100,0 jz wr_hist1 readb s12,11,0 jmp write_hist wr_hist1: writeb s10,0,0 jz wr_hist2 readb s12,11,0 jmp wr_hist1 wr_hist2: writeb s9,100,0 jz wr_hist3 readb s12,11,0 jmp wr_hist2 wr_hist3: ret time_min: acall read_dt movd " ",s15,210 movs s15,188,s15,210,2 movd "60 ",s15,220 acall mul movs s15,190,s15,210,2 movs s15,230,s15,220,8 acall add movs s15,233,s14,230,6 ret movs s14,230,s15,210,6 movs s8,230,s15,220,4 acall add movs s15,233,s14,240,6 movs s15,233,s15,210,6 movd "1440 ",s15,220 acall comp compd "LT",s15,204 jz calc_end_to movs s14,240,s15,210,6 movd "1440 ",s15,220 acall subb movs s15,233,s14,240,6 calc_end_to: ret disp_config: ansd " CONFIGURATION !/n" movd " /n",s12,100 movd " NOTRUF Nst# = /n",s12,100 movs s8,210,s12,124,6 out s12,100,c4 movd " NUMBER of LF = /n",s12,100 movs s8,220,s12,124,6 out s12,100,c4 movd " CLEAR TIMEOUT = /n",s12,100 movs s8,230,s12,124,6 out s12,100,c4 movd " CLEAR CODE = /n",s12,100 movs s8,240,s12,124,6 out s12,100,c4 movd " AKTUELLE ZEIT = /n",s12,100 movs s14,230,s12,124,6 out s12,100,c4 movd " NEXT = /n",s12,100 movs s14,181,s12,124,10 out s12,100,c4 movd " DIR-PICK = /n",s12,100 movs s8,190,s12,124,6 out s12,100,c4 ret cmd_set: compd "num=",s12,14 jnz cmd_set1 movs s12,18,s8,210,8 jmp okay_set cmd_set1: compd "lf=",s12,14 jnz cmd_set2 movs s12,17,s8,220,8 jmp okay_set cmd_set2: compd "to=",s12,14 jnz cmd_set3 movs s12,17,s8,230,8 jmp okay_set cmd_set3: compd "clcode=",s12,14 jnz cmd_set4 movs s12,21,s8,240,8 jmp okay_set cmd_set4: compd "dirpick=",s12,14 jnz cmd_set5 movs s12,22,s8,190,8 jmp okay_set cmd_set5: movd "ERR_CMD/n",s12,10 ret okay_set: movd "OKAY!/n",s12,10 ret z_ret: setc 15,255 incc 15 ret nz_ret: setc 15,0 incc 15 ret send_sit: sett 10 wait tf_sign setp mfv,f1 sett 4 wait tf_sign setp mfv,f4 sett 4 wait tf_sign setp mfv,f7 sett 4 wait tf_sign setp mfv,off ret send_quit: sett 5 wait tf_sign setp mfv,f4 sett 5 wait tf_sign setp mfv,off sett 5 wait tf_sign setp mfv,f4 sett 5 wait tf_sign setp mfv,off ret send_akntone: setp mfv,f7 sett 4 wait tf_sign setp mfv,off sett 4 wait tf_sign setp mfv,f7 sett 4 wait tf_sign ret disp_history: movc s12,20,6 compc 6,0 jnz dh_loop setc 6,10 dh_loop: readb s12,10,0 jz dh_emty out s12,10,c4 decc 6 jnz dh_loop ansd "MORE data/n" ret dh_emty: ansd "HISTORY BUFFER EMTY!/n" ret init_b0: setp 0XD300,0x10 setp 0XD301,0x00 setp 0Xd302,0x50 setp 0XD303,0x00 setp 0Xd304,0x50 setp 0XD305,0x00 setp 0Xd306,0x10 setp 0XD307,0x00 setp 0Xd308,0x50 setp 0XD309,0x00 setp 0Xd30A,0x10 setp 0XD30B,0x00 setp 0Xd30C,0x50 setp 0XD30D,0x00 setp 0XD30E,0x00 ret init_b1: setp 0Xd310,0x10 setp 0Xd311,0x00 setp 0Xd312,0x50 setp 0Xd313,0x00 setp 0Xd314,0x50 setp 0Xd315,0x00 setp 0Xd316,0x10 setp 0Xd317,0x00 setp 0Xd318,0x50 setp 0Xd319,0x00 setp 0Xd31A,0x10 setp 0Xd31B,0x00 setp 0Xd31C,0x50 setp 0Xd31D,0x00 setp 0Xd31E,0x01 ret init_b2: setp 0Xd320,0x10 setp 0Xd321,0x00 setp 0Xd322,0x20 setp 0Xd323,0x00 setp 0Xd324,0x20 setp 0Xd325,0x00 setp 0Xd326,0x10 setp 0Xd327,0x00 setp 0Xd328,0x20 setp 0Xd329,0x00 setp 0Xd32A,0x10 setp 0Xd32B,0x00 setp 0Xd32C,0x20 setp 0Xd32D,0x00 setp 0Xd32E,0x02 ret init_dbs2: movd "2 16384 400 5 4 4 4 1 16 ",s15,100 acall open_dbs movd " ",s14,0 acall init_dbs acall pfirst_dbs ; ; Tabelle fuer Taster und Hoerer ; A_Nr Ausgangsnummer von Taste oder Telefon ; | Z_Nr Zielnummer zur Signalisierung ; | | K_Nr Kontaktnummer fuer Waehlgeraet ; | | | ? T=Taste H=Hoerer P=Polizeinottaste ; | | | | ; ; Taste Polizeinotruf ; ; A_NrZ_NrK_Nr? movd "271627402723P Teilnehmer 001 ",s14,0 call dbs_write movd "271727402723P Teilnehmer 002 ",s14,0 call dbs_write movd "271827402723P Teilnehmer 003 ",s14,0 call dbs_write movd "271927402723P Teilnehmer 004 ",s14,0 call dbs_write movd "272027402723P Teilnehmer 005 ",s14,0 call dbs_write movd "272127402723P Teilnehmer 006 ",s14,0 call dbs_write movd "272627402723P Teilnehmer 007 ",s14,0 call dbs_write ; ; Taste Alarm mit Mikrofon ; A_NrZ_NrK_Nr? movd "270027412723T Teilnehmer 008 ",s14,0 call dbs_write movd "270127412723T Teilnehmer 009 ",s14,0 call dbs_write movd "270227412723T Teilnehmer 010 ",s14,0 call dbs_write movd "270327412723T Teilnehmer 011 ",s14,0 call dbs_write movd "270427412723T Teilnehmer 012 ",s14,0 call dbs_write movd "270527412723T Teilnehmer 013 ",s14,0 call dbs_write movd "270627412723T Teilnehmer 014 ",s14,0 call dbs_write movd "270727412723T Teilnehmer 015 ",s14,0 call dbs_write movd "270827412723T Teilnehmer 016 ",s14,0 call dbs_write movd "270927412723T Teilnehmer 017 ",s14,0 call dbs_write movd "271027412723T Teilnehmer 018 ",s14,0 call dbs_write movd "271127412723T Teilnehmer 019 ",s14,0 call dbs_write movd "271227412723T Teilnehmer 020 ",s14,0 call dbs_write movd "271327412723T Teilnehmer 021 ",s14,0 call dbs_write movd "271427412723T Teilnehmer 022 ",s14,0 call dbs_write movd "271527412723T Teilnehmer 023 ",s14,0 call dbs_write ; ; ;Hoerer Imbergstrasse ; ; A_NrZ_NrK_Nr? movd "121927342724H Teilnehmer 024 ",s14,0 call dbs_write movd "122127342724H Teilnehmer 025 ",s14,0 call dbs_write movd "122327342724H Teilnehmer 026 ",s14,0 call dbs_write movd "122427342724H Teilnehmer 027 ",s14,0 call dbs_write movd "122527342724H Teilnehmer 028 ",s14,0 call dbs_write movd "122627342724H Teilnehmer 029 ",s14,0 call dbs_write movd "122827342724H Teilnehmer 030 ",s14,0 call dbs_write movd "122927342724H Teilnehmer 031 ",s14,0 call dbs_write movd "157527342724H Teilnehmer 032 ",s14,0 call dbs_write ;Hoerer Kajetanerplatz ; ; A_NrZ_NrK_Nr? movd "120027302722H ",s14,0 call dbs_write movd "120227302722H ",s14,0 call dbs_write movd "120327302722H ",s14,0 call dbs_write movd "120427302722H ",s14,0 call dbs_write movd "120527302722H ",s14,0 call dbs_write movd "120627302722H ",s14,0 call dbs_write movd "120727302722H ",s14,0 call dbs_write movd "120827302722H ",s14,0 call dbs_write movd "120927302722H ",s14,0 call dbs_write movd "121027302722H ",s14,0 call dbs_write movd "121127302722H ",s14,0 call dbs_write movd "121227302722H ",s14,0 call dbs_write movd "121627302722H ",s14,0 call dbs_write movd "121727302722H ",s14,0 call dbs_write movd "122027302722H ",s14,0 call dbs_write movd "122727302722H ",s14,0 call dbs_write movd "123027302722H ",s14,0 call dbs_write movd "123127302722H ",s14,0 call dbs_write movd "123227302722H ",s14,0 call dbs_write movd "123327302722H ",s14,0 call dbs_write movd "123427302722H ",s14,0 call dbs_write movd "123527302722H ",s14,0 call dbs_write movd "123627302722H ",s14,0 call dbs_write movd "123727302722H ",s14,0 call dbs_write movd "123927302722H ",s14,0 call dbs_write movd "124027302722H ",s14,0 call dbs_write movd "124127302722H ",s14,0 call dbs_write movd "124327302722H ",s14,0 call dbs_write movd "124427302722H ",s14,0 call dbs_write movd "124527302722H ",s14,0 call dbs_write movd "124627302722H ",s14,0 call dbs_write movd "124727302722H ",s14,0 call dbs_write movd "124827302722H ",s14,0 call dbs_write movd "124927302722H ",s14,0 call dbs_write movd "125027302722H ",s14,0 call dbs_write movd "125127302722H ",s14,0 call dbs_write movd "125227302722H ",s14,0 call dbs_write movd "125327302722H ",s14,0 call dbs_write movd "125427302722H ",s14,0 call dbs_write movd "125527302722H ",s14,0 call dbs_write movd "125627302722H ",s14,0 call dbs_write movd "125727302722H ",s14,0 call dbs_write movd "125827302722H ",s14,0 call dbs_write movd "125927302722H ",s14,0 call dbs_write movd "126127302722H ",s14,0 call dbs_write movd "126227302722H ",s14,0 call dbs_write movd "126327302722H ",s14,0 call dbs_write movd "126427302722H ",s14,0 call dbs_write movd "126527302722H ",s14,0 call dbs_write movd "126627302722H ",s14,0 call dbs_write movd "126727302722H ",s14,0 call dbs_write movd "126827302722H ",s14,0 call dbs_write movd "127027302722H ",s14,0 call dbs_write movd "127127302722H ",s14,0 call dbs_write movd "127227302722H ",s14,0 call dbs_write movd "127327302722H ",s14,0 call dbs_write movd "127427302722H ",s14,0 call dbs_write movd "127527302722H ",s14,0 call dbs_write movd "127627302722H ",s14,0 call dbs_write movd "127727302722H ",s14,0 call dbs_write movd "127827302722H ",s14,0 call dbs_write movd "127927302722H ",s14,0 call dbs_write movd "128027302722H ",s14,0 call dbs_write movd "128127302722H ",s14,0 call dbs_write movd "128227302722H ",s14,0 call dbs_write movd "128327302722H ",s14,0 call dbs_write movd "128827302722H ",s14,0 call dbs_write movd "128927302722H ",s14,0 call dbs_write movd "129027302722H ",s14,0 call dbs_write movd "129127302722H ",s14,0 call dbs_write movd "129227302722H ",s14,0 call dbs_write movd "129527302722H ",s14,0 call dbs_write movd "129827302722H ",s14,0 call dbs_write movd "130127302722H ",s14,0 call dbs_write movd "130227302722H ",s14,0 call dbs_write movd "130327302722H ",s14,0 call dbs_write movd "130427302722H ",s14,0 call dbs_write movd "130527302722H ",s14,0 call dbs_write movd "130627302722H ",s14,0 call dbs_write movd "130727302722H ",s14,0 call dbs_write movd "130827302722H ",s14,0 call dbs_write movd "130927302722H ",s14,0 call dbs_write movd "131027302722H ",s14,0 call dbs_write movd "131127302722H ",s14,0 call dbs_write movd "131227302722H ",s14,0 call dbs_write movd "131327302722H ",s14,0 call dbs_write movd "131427302722H ",s14,0 call dbs_write movd "132927302722H ",s14,0 call dbs_write movd "136827302722H ",s14,0 call dbs_write movd "150027302722H ",s14,0 call dbs_write movd "150327302722H ",s14,0 call dbs_write movd "150427302722H ",s14,0 call dbs_write movd "150927302722H ",s14,0 call dbs_write movd "151027302722H ",s14,0 call dbs_write movd "151127302722H ",s14,0 call dbs_write movd "151227302722H ",s14,0 call dbs_write movd "151327302722H ",s14,0 call dbs_write movd "151427302722H ",s14,0 call dbs_write movd "151527302722H ",s14,0 call dbs_write movd "151627302722H ",s14,0 call dbs_write movd "151727302722H ",s14,0 call dbs_write movd "151827302722H ",s14,0 call dbs_write movd "151927302722H ",s14,0 call dbs_write movd "152127302722H ",s14,0 call dbs_write movd "152227302722H ",s14,0 call dbs_write movd "152327302722H ",s14,0 call dbs_write movd "152427302722H ",s14,0 call dbs_write movd "152627302722H ",s14,0 call dbs_write movd "152727302722H ",s14,0 call dbs_write movd "152827302722H ",s14,0 call dbs_write movd "152927302722H ",s14,0 call dbs_write movd "153027302722H ",s14,0 call dbs_write movd "153127302722H ",s14,0 call dbs_write movd "153227302722H ",s14,0 call dbs_write movd "153327302722H ",s14,0 call dbs_write movd "153427302722H ",s14,0 call dbs_write movd "153527302722H ",s14,0 call dbs_write movd "153627302722H ",s14,0 call dbs_write movd "153827302722H ",s14,0 call dbs_write movd "153927302722H ",s14,0 call dbs_write movd "154127302722H ",s14,0 call dbs_write movd "154227302722H ",s14,0 call dbs_write movd "154327302722H ",s14,0 call dbs_write movd "154427302722H ",s14,0 call dbs_write movd "154527302722H ",s14,0 call dbs_write movd "154627302722H ",s14,0 call dbs_write movd "154727302722H ",s14,0 call dbs_write movd "154827302722H ",s14,0 call dbs_write movd "154927302722H ",s14,0 call dbs_write movd "155127302722H ",s14,0 call dbs_write movd "155427302722H ",s14,0 call dbs_write movd "155527302722H ",s14,0 call dbs_write movd "155627302722H ",s14,0 call dbs_write movd "155727302722H ",s14,0 call dbs_write movd "155827302722H ",s14,0 call dbs_write movd "155927302722H ",s14,0 call dbs_write movd "156027302722H ",s14,0 call dbs_write movd "156227302722H ",s14,0 call dbs_write movd "156327302722H ",s14,0 call dbs_write movd "156427302722H ",s14,0 call dbs_write movd "156527302722H ",s14,0 call dbs_write movd "156627302722H ",s14,0 call dbs_write movd "156727302722H ",s14,0 call dbs_write movd "156827302722H ",s14,0 call dbs_write movd "157727302722H ",s14,0 call dbs_write movd "157827302722H ",s14,0 call dbs_write movd "157927302722H ",s14,0 call dbs_write movd "158027302722H ",s14,0 call dbs_write movd "158127302722H ",s14,0 call dbs_write movd "158227302722H ",s14,0 call dbs_write movd "158327302722H ",s14,0 call dbs_write movd "158427302722H ",s14,0 call dbs_write movd "158527302722H ",s14,0 call dbs_write movd "158627302722H ",s14,0 call dbs_write movd "158727302722H ",s14,0 call dbs_write movd "158827302722H ",s14,0 call dbs_write movd "158927302722H ",s14,0 call dbs_write movd "159027302722H ",s14,0 call dbs_write movd "159127302722H ",s14,0 call dbs_write movd "159227302722H ",s14,0 call dbs_write movd "159327302722H ",s14,0 call dbs_write movd "159427302722H ",s14,0 call dbs_write movd "159527302722H ",s14,0 call dbs_write movd "159927302722H ",s14,0 call dbs_write movd "160127302722H ",s14,0 call dbs_write movd "160227302722H ",s14,0 call dbs_write movd "160327302722H ",s14,0 call dbs_write movd "160427302722H ",s14,0 call dbs_write movd "160527302722H ",s14,0 call dbs_write movd "160627302722H ",s14,0 call dbs_write movd "160827302722H ",s14,0 call dbs_write movd "160927302722H ",s14,0 call dbs_write movd "161027302722H ",s14,0 call dbs_write movd "161527302722H ",s14,0 call dbs_write movd "161627302722H ",s14,0 call dbs_write movd "161727302722H ",s14,0 call dbs_write movd "161827302722H ",s14,0 call dbs_write movd "161927302722H ",s14,0 call dbs_write movd "162027302722H ",s14,0 call dbs_write movd "170027302722H ",s14,0 call dbs_write movd "230027302722H ",s14,0 call dbs_write movd "230127302722H ",s14,0 call dbs_write movd "230227302722H ",s14,0 call dbs_write movd "230327302722H ",s14,0 call dbs_write movd "230527302722H ",s14,0 call dbs_write movd "230627302722H ",s14,0 call dbs_write movd "230727302722H ",s14,0 call dbs_write movd "230827302722H ",s14,0 call dbs_write movd "230927302722H ",s14,0 call dbs_write movd "231027302722H ",s14,0 call dbs_write movd "231127302722H ",s14,0 call dbs_write movd "231227302722H ",s14,0 call dbs_write movd "231327302722H ",s14,0 call dbs_write movd "231527302722H ",s14,0 call dbs_write movd "231627302722H ",s14,0 call dbs_write movd "231727302722H ",s14,0 call dbs_write movd "231827302722H ",s14,0 call dbs_write movd "231927302722H ",s14,0 call dbs_write movd "232027302722H ",s14,0 call dbs_write movd "232127302722H ",s14,0 call dbs_write movd "232227302722H ",s14,0 call dbs_write movd "232327302722H ",s14,0 call dbs_write movd "232427302722H ",s14,0 call dbs_write movd "232627302722H ",s14,0 call dbs_write movd "232727302722H ",s14,0 call dbs_write movd "232827302722H ",s14,0 call dbs_write movd "233027302722H ",s14,0 call dbs_write movd "233127302722H ",s14,0 call dbs_write movd "233427302722H ",s14,0 call dbs_write movd "233527302722H ",s14,0 call dbs_write movd "233627302722H ",s14,0 call dbs_write movd "233727302722H ",s14,0 call dbs_write movd "233827302722H ",s14,0 call dbs_write movd "233927302722H ",s14,0 call dbs_write movd "234027302722H ",s14,0 call dbs_write movd "234127302722H ",s14,0 call dbs_write movd "234227302722H ",s14,0 call dbs_write movd "234327302722H ",s14,0 call dbs_write movd "234427302722H ",s14,0 call dbs_write movd "234527302722H ",s14,0 call dbs_write movd "234627302722H ",s14,0 call dbs_write movd "234727302722H ",s14,0 call dbs_write movd "234927302722H ",s14,0 call dbs_write movd "235007302722H ",s14,0 call dbs_write movd "235127302722H ",s14,0 call dbs_write movd "235227302722H ",s14,0 call dbs_write movd "235327302722H ",s14,0 call dbs_write movd "235427302722H ",s14,0 call dbs_write movd "235527302722H ",s14,0 call dbs_write movd "235627302722H ",s14,0 call dbs_write movd "236027302722H ",s14,0 call dbs_write movd "236127302722H ",s14,0 call dbs_write movd "236227302722H ",s14,0 call dbs_write movd "236327302722H ",s14,0 call dbs_write movd "236427302722H ",s14,0 call dbs_write movd "236527302722H ",s14,0 call dbs_write movd "236627302722H ",s14,0 call dbs_write movd "236727302722H ",s14,0 call dbs_write movd "237027302722H ",s14,0 call dbs_write movd "237127302722H ",s14,0 call dbs_write movd "237427302722H ",s14,0 call dbs_write movd "237627302722H ",s14,0 call dbs_write movd "238027302722H ",s14,0 call dbs_write movd "238427302722H ",s14,0 call dbs_write movd "239527302722H ",s14,0 call dbs_write movd "239727302722H ",s14,0 call dbs_write movd "239927302722H ",s14,0 call dbs_write movd "240127302722H ",s14,0 call dbs_write movd "240227302722H ",s14,0 call dbs_write movd "240427302722H ",s14,0 call dbs_write movd "240527302722H ",s14,0 call dbs_write movd "240627302722H ",s14,0 call dbs_write movd "240727302722H ",s14,0 call dbs_write movd "240827302722H ",s14,0 call dbs_write movd "240927302722H ",s14,0 call dbs_write movd "241027302722H ",s14,0 call dbs_write movd "241127302722H ",s14,0 call dbs_write movd "241227302722H ",s14,0 call dbs_write movd "241327302722H ",s14,0 call dbs_write movd "241427302722H ",s14,0 call dbs_write movd "241527302722H ",s14,0 call dbs_write movd "241827302722H ",s14,0 call dbs_write movd "241927302722H ",s14,0 call dbs_write movd "242027302722H ",s14,0 call dbs_write movd "242127302722H ",s14,0 call dbs_write movd "242227302722H ",s14,0 call dbs_write movd "242327302722H ",s14,0 call dbs_write movd "242427302722H ",s14,0 call dbs_write movd "242527302722H ",s14,0 call dbs_write movd "242627302722H ",s14,0 call dbs_write movd "242727302722H ",s14,0 call dbs_write movd "242827302722H ",s14,0 call dbs_write movd "242927302722H ",s14,0 call dbs_write movd "243027302722H ",s14,0 call dbs_write movd "243127302722H ",s14,0 call dbs_write movd "243227302722H ",s14,0 call dbs_write movd "243327302722H ",s14,0 call dbs_write movd "243427302722H ",s14,0 call dbs_write movd "243927302722H ",s14,0 call dbs_write movd "244027302722H ",s14,0 call dbs_write movd "244127302722H ",s14,0 call dbs_write movd "347127302722H ",s14,0 call dbs_write movd "347227302722H ",s14,0 call dbs_write movd "347327302722H ",s14,0 call dbs_write movd "347427302722H ",s14,0 call dbs_write movd "347527302722H ",s14,0 call dbs_write movd "347627302722H ",s14,0 call dbs_write movd "347727302722H ",s14,0 call dbs_write movd "347827302722H ",s14,0 call dbs_write movd "347927302722H ",s14,0 call dbs_write movd "348027302722H ",s14,0 call dbs_write movd "348127302722H ",s14,0 call dbs_write movd "348227302722H ",s14,0 call dbs_write movd "348327302722H ",s14,0 call dbs_write movd "348427302722H ",s14,0 call dbs_write movd "349127302722H ",s14,0 call dbs_write movd "349227302722H ",s14,0 call dbs_write movd "349327302722H ",s14,0 call dbs_write movd "349427302722H ",s14,0 call dbs_write movd "349527302722H ",s14,0 call dbs_write movd "349627302722H ",s14,0 call dbs_write movd "349727302722H ",s14,0 call dbs_write movd "349827302722H ",s14,0 call dbs_write ; ret ; dbs_write: acall write_dbs acall pnext_dbs jz dbs_wr_ok movd "Runtime-error DBS3 too small!!/n",s14,100 out s14,100,c4 dbs_wr_ok: ret zzz: end